diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-17 23:44:36 +0000 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-17 23:44:36 +0000 |
| commit | 6a689cd5ca5c8061e3565e2bed2c3c8eafea34a4 (patch) | |
| tree | 5a6020082fdb1adb90507bdf57b13899d6fa852c | |
| parent | b5b4b86427286002081f102d1e97baef9162851e (diff) | |
| download | thermoprint-6a689cd5ca5c8061e3565e2bed2c3c8eafea34a4.tar thermoprint-6a689cd5ca5c8061e3565e2bed2c3c8eafea34a4.tar.gz thermoprint-6a689cd5ca5c8061e3565e2bed2c3c8eafea34a4.tar.bz2 thermoprint-6a689cd5ca5c8061e3565e2bed2c3c8eafea34a4.tar.xz thermoprint-6a689cd5ca5c8061e3565e2bed2c3c8eafea34a4.zip | |
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.
| -rw-r--r-- | server/test/Thermoprint/ServerSpec.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
| 41 | tManager <- TestManager <$> newEmptyTMVarIO | 41 | tManager <- TestManager <$> newEmptyTMVarIO |
| 42 | termSem <- newQSem 0 | 42 | termSem <- newQSem 0 |
| 43 | let | 43 | let |
| 44 | runSqlite :: ReaderT ConnectionPool (LoggingT IO) a -> IO a | 44 | runSqlite :: ReaderT ConnectionPool (NoLoggingT IO) a -> IO a |
| 45 | runSqlite = runNoLoggingT . withSqlitePool (T.pack fp) 1 . runReaderT | 45 | runSqlite = runNoLoggingT . withSqlitePool (T.pack fp) 1 . runReaderT |
| 46 | 46 | ||
| 47 | printers = [ ( pure $ PM tPM | 47 | printers = [ ( pure $ PM tPM |