diff options
Diffstat (limited to 'src/Network/ACME.hs')
-rw-r--r-- | src/Network/ACME.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Network/ACME.hs b/src/Network/ACME.hs index 4b96afc..5ea6ff8 100644 --- a/src/Network/ACME.hs +++ b/src/Network/ACME.hs | |||
@@ -35,7 +35,7 @@ import Network.Connection | |||
35 | import Network.HTTP.Conduit (Manager, mkManagerSettings, | 35 | import Network.HTTP.Conduit (Manager, mkManagerSettings, |
36 | newManager) | 36 | newManager) |
37 | import Network.URI | 37 | import Network.URI |
38 | import Network.Wreq (Response, checkStatus, defaults, | 38 | import Network.Wreq (Response, checkResponse, defaults, |
39 | responseBody, responseHeader, | 39 | responseBody, responseHeader, |
40 | responseStatus, statusCode, | 40 | responseStatus, statusCode, |
41 | statusMessage) | 41 | statusMessage) |
@@ -168,8 +168,8 @@ post url payload = do | |||
168 | put $ r ^?! responseHeader "Replay-Nonce" . to (Nonce . T.unpack . decodeUtf8) | 168 | put $ r ^?! responseHeader "Replay-Nonce" . to (Nonce . T.unpack . decodeUtf8) |
169 | return r | 169 | return r |
170 | where | 170 | where |
171 | noStatusCheck = defaults & checkStatus .~ Just nullChecker | 171 | noStatusCheck = defaults & checkResponse .~ Just nullChecker |
172 | nullChecker _ _ _ = Nothing | 172 | nullChecker _ _ = return () |
173 | 173 | ||
174 | sendPayload :: (MonadIO m, MonadState Nonce m, MonadReader Env m) => (Directory -> String) -> ByteString -> m (Response LC.ByteString) | 174 | sendPayload :: (MonadIO m, MonadState Nonce m, MonadReader Env m) => (Directory -> String) -> ByteString -> m (Response LC.ByteString) |
175 | sendPayload reqType payload = do | 175 | sendPayload reqType payload = do |