git.iko.soy/github-app
on master help sign in
Add User-Agent
7f66b68Kirill Elagin
src/GitHub/App/Auth.hs+4−1
compare with master
unifiedsplit
@@ -117,7 +117,10 @@ createAccessTokenR InstallationAuth{..} = do
117
117
118 req <- HTTP.parseRequest . T.unpack $ url
118 req <- HTTP.parseRequest . T.unpack $ url
119 pure req
119 pure req
120+ { HTTP.requestHeaders =
120− { HTTP.requestHeaders = [("Authorization", "Bearer " <> encodeUtf8 jwt)]
121+ [ ("Authorization", "Bearer " <> encodeUtf8 jwt)
122+ , ("User-Agent", "github-app/Haskell")
123+ ]
121 , HTTP.checkResponse = successOrMissing Nothing
124 , HTTP.checkResponse = successOrMissing Nothing
122 , HTTP.method = "POST"
125 , HTTP.method = "POST"
123 }
126 }