display alert for inotify/kqueue errors

This commit is contained in:
Joey Hess 2012-09-06 13:56:23 -04:00
parent ec23eeb9eb
commit d11ded822c
3 changed files with 20 additions and 5 deletions

View file

@ -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