colorless-http-client 0.0.0 → 0.0.1
raw patch · 3 files changed
+8/−3 lines, 3 files
Files
colorless-http-client.cabal view
@@ -3,7 +3,7 @@ -- see: https://github.com/sol/hpack name: colorless-http-client-version: 0.0.0+version: 0.0.1 synopsis: Http Client addon for Colorless description: Http Client addon for Colorless category: Web
library/Colorless/Client/HttpClient.hs view
@@ -1,5 +1,8 @@ module Colorless.Client.HttpClient ( sendRequest+ , Manager+ , RequestHeaders+ , HttpClientResponse ) where import qualified Network.HTTP.Client as HttpClient@@ -12,13 +15,15 @@ import Colorless.Client import Colorless.Ast (ToAst) +type HttpClientResponse = HttpClient.Response+ sendRequest :: (HasType meta, ToJSON meta, ToAst a, HasType a, FromJSON a, HasType err, FromJSON err) => Manager -> Pull -> RequestHeaders -> Request meta a- -> IO (HttpClient.Response BL.ByteString, Maybe (Response err a))+ -> IO (HttpClientResponse BL.ByteString, Maybe (Response err a)) sendRequest manager pull headers req = do initialRequest <- parseRequest (fromText $ pullAddress pull) let request = initialRequest
package.yaml view
@@ -1,5 +1,5 @@ name: colorless-http-client-version: '0.0.0'+version: '0.0.1' category: Web synopsis: Http Client addon for Colorless description: Http Client addon for Colorless