@@ -117,7 +117,10 @@ createAccessTokenR InstallationAuth{..} = do
117117
118118 req <- HTTP.parseRequest . T.unpack $ url
119119 pure req
120− { HTTP.requestHeaders = [("Authorization", "Bearer " <> encodeUtf8 jwt)]
120+ { HTTP.requestHeaders =
121+ [ ("Authorization", "Bearer " <> encodeUtf8 jwt)
122+ , ("User-Agent", "github-app/Haskell")
123+ ]
121124 , HTTP.checkResponse = successOrMissing Nothing
122125 , HTTP.method = "POST"
123126 }