fpco-api 1.0.3 → 1.0.4
raw patch · 2 files changed
+3/−10 lines, 2 filesdep ~http-conduit
Dependency ranges changed: http-conduit
Files
- fpco-api.cabal +2/−2
- src/library/FP/API/Run.hs +1/−8
fpco-api.cabal view
@@ -1,5 +1,5 @@ name: fpco-api-version: 1.0.3+version: 1.0.4 synopsis: Simple interface to the FP Complete IDE API. description: A server and library for communicating with the FP Complete IDE API. homepage: https://www.fpcomplete.com/page/api@@ -39,7 +39,7 @@ monad-logger >=0.3, mtl >=2.1, containers >= 0.4,- http-conduit >=1.9,+ http-conduit == 1.9.*, texts >=0.3, ghc-prim, template-haskell >=2.7,
src/library/FP/API/Run.hs view
@@ -71,8 +71,7 @@ jar <- io $ readIORef ccCookie let req = urlEncodedBody params $ setup ccToken request (Just jar) ccUserAgent $(logDebug) ("=> " <> trunc (T.pack (show (IdeCommand (cmd Returns)))))- resp <- io (catch (runResourceT (httpLbs req ccManager))- handle301)+ resp <- io (runResourceT (httpLbs req ccManager)) io $ writeIORef ccCookie (responseCookieJar resp) case statusCode (responseStatus resp) of 200 -> do@@ -91,7 +90,6 @@ [("json",mconcat (toChunks (encode (showToFay' (IdeCommand (cmd Returns))))))] setup token req jar agent = req { method = "POST"- , redirectCount = 0 , requestHeaders = requestHeaders req ++ [("Accept","application/json") ,("User-Agent",encodeUtf8 ("fpco-api:" <> agent))@@ -102,8 +100,3 @@ trunc :: Text -> Text trunc = ellipsize 140 errprefix = "Error from request: " <> T.pack (show (cmd Returns)) <> "\n"- handle301 e =- case e of- StatusCodeException status _ _ | statusCode status == 301 ->- throw (CommandException "Got a redirect. Probably an invalid authorization token.")- _ -> throw e