1 files changed, 3 insertions, 0 deletions
diff --git a/Log.hs b/Log.hs
index ec7078e..50c506d 100644
--- a/Log.hs
+++ b/Log.hs
@@ -68,6 +68,9 @@ type Logger = LogMessage -> IO ()
 withLogger :: FilePath -> (Logger -> IO a) -> IO a
 withLogger logfile a = withFile logfile WriteMode (a . mkLogger)
 
+nullLogger :: Logger
+nullLogger _ = return ()
+
 mkLogger :: Handle -> Logger
 mkLogger h a = do
 	l <- mkLog a <$> getPOSIXTime