summaryrefslogtreecommitdiff
path: root/Assistant
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-07-26 23:01:44 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-07-26 23:01:44 -0400
commit0950b8314a21e125aec383db078afc648bd4444e (patch)
tree59a37c2d90e73dfcbcb21e2dcc15e83f7e80715e /Assistant
parent51a6a833c5e07d8ac57ab8857c649669502d9f6b (diff)
better exception display
Diffstat (limited to 'Assistant')
-rw-r--r--Assistant/Threads/Watcher.hs2
1 files changed, 1 insertions, 1 deletions
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