From 0950b8314a21e125aec383db078afc648bd4444e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 26 Jul 2014 23:01:44 -0400 Subject: better exception display --- Assistant/Threads/Watcher.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Assistant') diff --git a/Assistant/Threads/Watcher.hs b/Assistant/Threads/Watcher.hs index 0ed1bd22f..91e0fc619 100644 --- a/Assistant/Threads/Watcher.hs +++ b/Assistant/Threads/Watcher.hs @@ -184,7 +184,7 @@ runHandler :: Handler -> FilePath -> Maybe FileStatus -> Assistant () runHandler handler file filestatus = void $ do r <- tryIO <~> handler (normalize file) filestatus case r of - Left e -> liftIO $ print e + Left e -> liftIO $ warningIO $ show e Right Nothing -> noop Right (Just change) -> do -- Just in case the commit thread is not -- cgit v1.2.3