diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-07-26 23:01:44 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-07-26 23:01:44 -0400 |
| commit | 0950b8314a21e125aec383db078afc648bd4444e (patch) | |
| tree | 59a37c2d90e73dfcbcb21e2dcc15e83f7e80715e /Assistant/Threads/Watcher.hs | |
| parent | 51a6a833c5e07d8ac57ab8857c649669502d9f6b (diff) | |
better exception display
Diffstat (limited to 'Assistant/Threads/Watcher.hs')
| -rw-r--r-- | Assistant/Threads/Watcher.hs | 2 |
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 |