diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-08-01 18:00:47 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-08-01 18:00:47 -0400 |
| commit | ddbf5df3c9940473663a6e562f8ee3583867046e (patch) | |
| tree | 40dc81d0c2693b5fd5fc3e5b9cd8df17e0505ec5 /Assistant/Threads/Watcher.hs | |
| parent | 154cb13180fbe877d2030d83a415b30150ac7298 (diff) | |
| parent | d0a8e3d6217f2924b864393d425b6d7582370d07 (diff) | |
Merge branch 'newchunks'
I am happy enough with this to make it live!
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 |