From 2b9ceaead3f3cd80e973cccecb9a3eebc51154f7 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 17 Jul 2016 19:21:56 +0200 Subject: Fixes for GHC 8.0.1 --- server/default-conf/Main.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'server/default-conf') diff --git a/server/default-conf/Main.hs b/server/default-conf/Main.hs index 7c4bfc7..35088e8 100644 --- a/server/default-conf/Main.hs +++ b/server/default-conf/Main.hs @@ -20,6 +20,10 @@ main = thermoprintServer True (Nat runSqlite) $ def `withPrinters` printers runSqlite :: ReaderT ConnectionPool (LoggingT IO) a -> IO a runSqlite = runStderrLoggingT . withSqlitePool "thermoprint.sqlite" 1 . runReaderT + printers :: [( ResourceT (ReaderT ConnectionPool (LoggingT IO)) PrinterMethod + , QMConfig (ResourceT (ReaderT ConnectionPool (LoggingT IO))) + ) + ] printers = [ (pure debugPrint, def) , (pure $ delayedDebugPrint (10 * 10^6), def) ] -- cgit v1.2.3