From 94a94c36cf0eba38b85b8fb6c360c14abae7031f Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 21 Apr 2017 22:35:57 -0400 Subject: added debug-me --watch mode This commit was sponsored by Ewen McNeill. --- Log.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'Log.hs') 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 -- cgit v1.2.3