diff options
| -rw-r--r-- | server/src/Thermoprint/Server.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/server/src/Thermoprint/Server.hs b/server/src/Thermoprint/Server.hs index 8061b20..279991d 100644 --- a/server/src/Thermoprint/Server.hs +++ b/server/src/Thermoprint/Server.hs | |||
| @@ -77,7 +77,7 @@ withPrinters cfg pss = (\map -> cfg { printers = map }) <$> foldlM (\map spec -> | |||
| 77 | thermoprintServer :: ( MonadLoggerIO m | 77 | thermoprintServer :: ( MonadLoggerIO m |
| 78 | , MonadReader ConnectionPool m | 78 | , MonadReader ConnectionPool m |
| 79 | , MonadResourceBase m | 79 | , MonadResourceBase m |
| 80 | ) => (m :~> IO) -- ^ 'dyre' controls the base of the monad-transformer-stack ('IO') but we let the user specify the rest of it. Therefore we require a specification of how to enter the stack. | 80 | ) => (m :~> IO) -- ^ 'dyre' controls the base of the monad-transformer-stack ('IO') but we let the user specify the rest of it. Therefore we require a specification of how to collapse the stack. |
| 81 | -> ResourceT m Config -> IO () | 81 | -> ResourceT m Config -> IO () |
| 82 | -- ^ Run the server | 82 | -- ^ Run the server |
| 83 | thermoprintServer io = Dyre.wrapMain $ Dyre.defaultParams | 83 | thermoprintServer io = Dyre.wrapMain $ Dyre.defaultParams |