Suppress server logging in test mode

2016-02-22 17:48:33 -08:00
parent d4a4bbf966
commit 17acd134c7
4 changed files with 10 additions and 13 deletions
@@ -88,7 +88,7 @@ main = do

 postgrest :: AppConfig -> DbStructure -> P.Pool -> Application
 postgrest conf dbStructure pool =
-  let middle = logStdout . defaultMiddle in
+  let middle = (if configQuiet conf then id else logStdout) . defaultMiddle in

  middle $ \ req respond -> do
    time <- getPOSIXTime