diff options
Diffstat (limited to 'client/src/Thermoprint/Client.hs')
| -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 |