From e8e0cb7f36641ffb7901178bc54fef98eba9215c Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 12 Apr 2018 14:34:05 +0200 Subject: Fix build --- server/default-conf/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'server/default-conf') diff --git a/server/default-conf/Main.hs b/server/default-conf/Main.hs index 35088e8..6ea0ef7 100644 --- a/server/default-conf/Main.hs +++ b/server/default-conf/Main.hs @@ -15,7 +15,7 @@ import Control.Monad.Reader import Database.Persist.Sqlite main :: IO () -main = thermoprintServer True (Nat runSqlite) $ def `withPrinters` printers +main = thermoprintServer True (NT runSqlite) $ def `withPrinters` printers where runSqlite :: ReaderT ConnectionPool (LoggingT IO) a -> IO a runSqlite = runStderrLoggingT . withSqlitePool "thermoprint.sqlite" 1 . runReaderT -- cgit v1.2.3