ea9acfd · docker-hs · git.iko.soy

git.iko.soy/docker-hs

Fix for `requestUnit` error handling. #41

commitea9acfd8ce0fcf84e24c8a1a26fb985ac1a9cb91 authorJames Parker <dev@jamesparker.me> dateMon 30 Oct 2017, 10:40 (9 years ago) parent0dcc6e9

1 file changed+1−1

unifiedsplit

src/Docker/Client/Api.hs+1−1

@@ -43,7 +43,7 @@ import Docker.Client.Types

4343import Docker.Client.Utils

4444

4545requestUnit :: (MonadIO m, MonadMask m) => HttpVerb -> Endpoint -> DockerT m (Either DockerError ())

46−requestUnit verb endpoint = const (Right ()) <$> requestHelper verb endpoint

46+requestUnit verb endpoint = fmap (const ()) <$> requestHelper verb endpoint

4747

4848requestHelper :: (MonadIO m, MonadMask m) => HttpVerb -> Endpoint -> DockerT m (Either DockerError BSL.ByteString)

4949requestHelper verb endpoint = requestHelper' verb endpoint Conduit.sinkLbs