Do not print snaplet snaplet messages if verbosity explicitly false

This resolves issue #81
snapframework · May 4, 2013 · 77bf967 · 77bf967
1 parent 0a9ea00
commit 77bf967
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Snap/Snaplet/Internal/Initializer.hs b/src/Snap/Snaplet/Internal/Initializer.hs
@@ -593,10 +593,11 @@ serveSnaplet startConfig initializer = do
     createDirectoryIfMissing False "log"
     let serve = simpleHttpServe conf
 
-    liftIO $ hPutStrLn stderr $ T.unpack msgs
+    when (loggingEnabled conf) $ liftIO $ hPutStrLn stderr $ T.unpack msgs
     _ <- try $ serve $ site
          :: IO (Either SomeException ())
     doCleanup
+    where loggingEnabled = not . (== Just False) . getVerbose
 
 
 ------------------------------------------------------------------------------