diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-09-06 13:56:23 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-09-06 13:56:23 -0400 |
| commit | d11ded822cf68d4f33a886e0f97f95a3781e0dc1 (patch) | |
| tree | bf01cb30263bb7e9d2333ecb9aa5117a797a0334 /Assistant/Threads/Watcher.hs | |
| parent | ec23eeb9eb273438a59f287f9252e7b1af987fc9 (diff) | |
display alert for inotify/kqueue errors
Diffstat (limited to 'Assistant/Threads/Watcher.hs')
| -rw-r--r-- | Assistant/Threads/Watcher.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Assistant/Threads/Watcher.hs b/Assistant/Threads/Watcher.hs index 8ba015b19..89cc98fa4 100644 --- a/Assistant/Threads/Watcher.hs +++ b/Assistant/Threads/Watcher.hs @@ -235,10 +235,11 @@ onDelDir threadname dir _ _dstatus _ = do [Params "--quiet -r --cached --ignore-unmatch --"] [dir] madeChange dir RmDirChange -{- Called when there's an error with inotify. -} +{- Called when there's an error with inotify or kqueue. -} onErr :: Handler -onErr _ msg _ _dstatus _ = do +onErr _ msg _ dstatus _ = do warning msg + void $ liftIO $ addAlert dstatus $ warningAlert "watcher" msg return Nothing {- Adds a symlink to the index, without ever accessing the actual symlink |