diff options
Diffstat (limited to 'Utility/Inotify.hs')
| -rw-r--r-- | Utility/Inotify.hs | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/Utility/Inotify.hs b/Utility/Inotify.hs index 049737c08..0a261ecfe 100644 --- a/Utility/Inotify.hs +++ b/Utility/Inotify.hs @@ -53,10 +53,9 @@ watchDir i test add del dir = watchDir' False i test add del dir watchDir' :: Bool -> INotify -> (FilePath -> Bool) -> Maybe (FilePath -> IO ()) -> Maybe (FilePath -> IO ()) -> FilePath -> IO () watchDir' scan i test add del dir = do if test dir - then do + then void $ do _ <- addWatch i watchevents dir go - _ <- mapM walk =<< dirContents dir - return () + mapM walk =<< dirContents dir else return () where watchevents @@ -92,6 +91,5 @@ waitForTermination = do check keyboardSignal mv takeMVar mv where - check sig mv = do - _ <- installHandler sig (CatchOnce $ putMVar mv ()) Nothing - return () + check sig mv = void $ + installHandler sig (CatchOnce $ putMVar mv ()) Nothing |