diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-11 22:15:24 +0000 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-11 22:15:24 +0000 |
| commit | 1422cdef307b2ac72dac69c547bc945d9ab70100 (patch) | |
| tree | 0e653f67c21910b0bf8f910da23b80504e9026b8 /server/src | |
| parent | 23952a7a6446ef5eee9dce11d3651d4a31979eec (diff) | |
| download | thermoprint-1422cdef307b2ac72dac69c547bc945d9ab70100.tar thermoprint-1422cdef307b2ac72dac69c547bc945d9ab70100.tar.gz thermoprint-1422cdef307b2ac72dac69c547bc945d9ab70100.tar.bz2 thermoprint-1422cdef307b2ac72dac69c547bc945d9ab70100.tar.xz thermoprint-1422cdef307b2ac72dac69c547bc945d9ab70100.zip | |
semantics
Diffstat (limited to 'server/src')
| -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 |