diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-18 15:29:24 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-18 15:29:24 +0100 |
| commit | 1033436cc593e6e88f8edbcdf394efb9faabe265 (patch) | |
| tree | 3786e867683e701318a3647144a4a6af08706733 /client | |
| parent | 02015edc87f3caa8661c16aee6973e6b1cafc783 (diff) | |
| download | thermoprint-1033436cc593e6e88f8edbcdf394efb9faabe265.tar thermoprint-1033436cc593e6e88f8edbcdf394efb9faabe265.tar.gz thermoprint-1033436cc593e6e88f8edbcdf394efb9faabe265.tar.bz2 thermoprint-1033436cc593e6e88f8edbcdf394efb9faabe265.tar.xz thermoprint-1033436cc593e6e88f8edbcdf394efb9faabe265.zip | |
More documentation
Diffstat (limited to 'client')
| -rw-r--r-- | client/src/Thermoprint/Client.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 | |||
| 104 | mkClient' = mkClient $ ioNat . throwNat | 104 | mkClient' = mkClient $ ioNat . throwNat |
| 105 | 105 | ||
| 106 | throwNat :: (Exception e, MonadThrow m) => EitherT e m :~> m | 106 | throwNat :: (Exception e, MonadThrow m) => EitherT e m :~> m |
| 107 | -- ^ Squash a layer of 'EitherT' into the underlying monad supporting 'throwM' | ||
| 107 | throwNat = Nat $ either throwM return <=< runEitherT | 108 | throwNat = Nat $ either throwM return <=< runEitherT |
| 108 | 109 | ||
| 109 | ioNat :: MonadIO m => IO :~> m | 110 | ioNat :: MonadIO m => IO :~> m |
| 111 | -- ^ @ioNat = Nat liftIO@ | ||
| 110 | ioNat = Nat liftIO | 112 | ioNat = Nat liftIO |