From 1033436cc593e6e88f8edbcdf394efb9faabe265 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 18 Feb 2016 15:29:24 +0100 Subject: More documentation --- client/src/Thermoprint/Client.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'client') diff --git a/client/src/Thermoprint/Client.hs b/client/src/Thermoprint/Client.hs index 758a256..5e96b29 100644 --- a/client/src/Thermoprint/Client.hs +++ b/client/src/Thermoprint/Client.hs @@ -104,7 +104,9 @@ mkClient' :: (MonadThrow m, MonadIO m) => BaseUrl -> Client m mkClient' = mkClient $ ioNat . throwNat throwNat :: (Exception e, MonadThrow m) => EitherT e m :~> m +-- ^ Squash a layer of 'EitherT' into the underlying monad supporting 'throwM' throwNat = Nat $ either throwM return <=< runEitherT ioNat :: MonadIO m => IO :~> m +-- ^ @ioNat = Nat liftIO@ ioNat = Nat liftIO -- cgit v1.2.3