From 6a689cd5ca5c8061e3565e2bed2c3c8eafea34a4 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 17 Feb 2016 23:44:36 +0000 Subject: No more logging in Thermoprint.ServerSpec Logged output was intermingled with hspecs output in a nondeterministic way. Investigation into a way to append the log generated to hspecs output after the test would be helpful. 'runChanLoggingT' might be useful. --- server/test/Thermoprint/ServerSpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'server/test/Thermoprint') diff --git a/server/test/Thermoprint/ServerSpec.hs b/server/test/Thermoprint/ServerSpec.hs index fe06a05..495ad10 100644 --- a/server/test/Thermoprint/ServerSpec.hs +++ b/server/test/Thermoprint/ServerSpec.hs @@ -41,7 +41,7 @@ setup = withSystemTempFile "thermoprint.sqlite" $ \fp h -> hClose h >> do tManager <- TestManager <$> newEmptyTMVarIO termSem <- newQSem 0 let - runSqlite :: ReaderT ConnectionPool (LoggingT IO) a -> IO a + runSqlite :: ReaderT ConnectionPool (NoLoggingT IO) a -> IO a runSqlite = runNoLoggingT . withSqlitePool (T.pack fp) 1 . runReaderT printers = [ ( pure $ PM tPM -- cgit v1.2.3