git.iko.soy/github-app
on master help sign in
Add Accept header
e9895fbKirill Elagin
src/GitHub/App/Auth.hs+1
compare with master
unifiedsplit
@@ -119,6 +119,7 @@ createAccessTokenR InstallationAuth{..} = do
119 pure req
119 pure req
120 { HTTP.requestHeaders =
120 { HTTP.requestHeaders =
121 [ ("Authorization", "Bearer " <> encodeUtf8 jwt)
121 [ ("Authorization", "Bearer " <> encodeUtf8 jwt)
122+ , ("Accept", "application/vnd.github.machine-man-preview+json")
122 , ("User-Agent", "github-app/Haskell")
123 , ("User-Agent", "github-app/Haskell")
123 ]
124 ]
124 , HTTP.checkResponse = successOrMissing Nothing
125 , HTTP.checkResponse = successOrMissing Nothing