From 4d7ecb10ada3115da14fb7baefe9cb1b510bb6ae Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 25 Feb 2016 17:56:21 +0000 Subject: delayed debugging printer --- server/default-conf/Main.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'server/default-conf') diff --git a/server/default-conf/Main.hs b/server/default-conf/Main.hs index cbfc476..f0b7f43 100644 --- a/server/default-conf/Main.hs +++ b/server/default-conf/Main.hs @@ -20,4 +20,5 @@ main = thermoprintServer True (Nat runSqlite) $ def `withPrinters` printers runSqlite = runStderrLoggingT . withSqlitePool "thermoprint.sqlite" 1 . runReaderT printers = [ (pure debugPrint, def) + , (pure $ delayedDebugPrint (10 * 10^6), def) ] -- cgit v1.2.3