diff options
Diffstat (limited to 'server/src/Thermoprint/Server.hs')
-rw-r--r-- | server/src/Thermoprint/Server.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/server/src/Thermoprint/Server.hs b/server/src/Thermoprint/Server.hs index 2413b2a..678d056 100644 --- a/server/src/Thermoprint/Server.hs +++ b/server/src/Thermoprint/Server.hs | |||
@@ -34,6 +34,7 @@ import Control.Monad.Reader | |||
34 | import Control.Monad.IO.Class | 34 | import Control.Monad.IO.Class |
35 | import Control.Monad.Morph | 35 | import Control.Monad.Morph |
36 | import Control.Category | 36 | import Control.Category |
37 | import Control.Monad.Catch (MonadMask) | ||
37 | import Prelude hiding (id, (.)) | 38 | import Prelude hiding (id, (.)) |
38 | 39 | ||
39 | import qualified Control.Monad as M | 40 | import qualified Control.Monad as M |
@@ -105,6 +106,7 @@ withPrinters cfg = fmap updateCfg . foldlM mapInsert (Map.mapWithKey (\k a -> (a | |||
105 | thermoprintServer :: ( MonadLoggerIO m | 106 | thermoprintServer :: ( MonadLoggerIO m |
106 | , MonadReader ConnectionPool m | 107 | , MonadReader ConnectionPool m |
107 | , MonadResourceBase m | 108 | , MonadResourceBase m |
109 | , MonadMask m | ||
108 | ) => (m :~> IO) -- ^ 'dyre' controls the base of the monad-transformer-stack ('IO') but we let the user specify much of the rest of it (we handle 'ResourceT' ourselves, since we need it to fork properly). Therefore we require a specification of how to collapse the stack. | 110 | ) => (m :~> IO) -- ^ 'dyre' controls the base of the monad-transformer-stack ('IO') but we let the user specify much of the rest of it (we handle 'ResourceT' ourselves, since we need it to fork properly). Therefore we require a specification of how to collapse the stack. |
109 | -> ResourceT m (Config (ResourceT m)) -> IO () | 111 | -> ResourceT m (Config (ResourceT m)) -> IO () |
110 | -- ^ Run the server | 112 | -- ^ Run the server |