Add types to thermoprint-server

1 files changed, 4 insertions, 1 deletions

diff --git a/bragi/thermoprint-server/thermoprint-server.hs b/bragi/thermoprint-server/thermoprint-server.hs
index 4f909f80..6142e7d9 100644
--- a/bragi/thermoprint-server/thermoprint-server.hs
+++ b/bragi/thermoprint-server/thermoprint-server.hs
@@ -13,12 +13,15 @@ import Control.Monad.Reader
 
 import Database.Persist.Postgresql
 
+type ServerM = ReaderT ConnectionPool (LoggingT IO)
+
 main :: IO ()
 main = thermoprintServer True (Nat runDb) $ (\c -> c { queueManagers = queueManagers }) <$> def `withPrinters` printers
   where
-    runDb :: ReaderT ConnectionPool (LoggingT IO) a -> IO a
+    runDb :: ServerM a -> IO a
     runDb = runStderrLoggingT . withPostgresqlPool "" 5 . runReaderT
 
+    printers :: [(ResourceT ServerM PrinterMethod, QMConfig (ResourceT ServerM))]
     printers = [ (pure $ genericPrint "/dev/usb/lp0", def)
                ]