on master help sign in
Add Accept header
commite9895fbba7533ffe3f0ebf8086ecc4f7fb6f63df authorKirill Elagin <kirelagin@gmail.com> dateFri 10 Aug 2018, 23:44 (8 years ago) parent7f66b68
1 file changed+1
src/GitHub/App/Auth.hs+1
src/GitHub/App/Auth.hs+1
@@ -119,6 +119,7 @@ createAccessTokenR InstallationAuth{..} = do
119119 pure req
120120 { HTTP.requestHeaders =
121121 [ ("Authorization", "Bearer " <> encodeUtf8 jwt)
122+ , ("Accept", "application/vnd.github.machine-man-preview+json")
122123 , ("User-Agent", "github-app/Haskell")
123124 ]
124125 , HTTP.checkResponse = successOrMissing Nothing