code cleanup

1 files changed, 2 insertions, 3 deletions

diff --git a/src/Trivmix.hs b/src/Trivmix.hs
index ede6f67..fe592fe 100644
--- a/src/Trivmix.hs
+++ b/src/Trivmix.hs
@@ -140,13 +140,12 @@ handleFiles inotify level files = do
   initLevel <- readMVar level
   levelChanges <- (newChan :: IO (Chan Level))
   let 
-    handleFiles' = mapM handleFile files
     handleFile file = do
       levelChanges' <- dupChan levelChanges
       forkIO $ forever $ do -- Broadcast level changes and update all files
         readChan levelChanges' >>= writeLevel file
       addWatch inotify watchedAttrs file (const $ readLevel levelChanges level file)
-  foldl (.) id [onStateFile f (show initLevel ++ "\n") | f <- files] $ handleFiles'
+  sequence [onStateFile f (show initLevel ++ "\n") handleFile f | f <- files]
   forkIO $ forever $ do
     readChan levelChanges >>= swapMVar level
     return ()
@@ -171,7 +170,7 @@ onStateFile file initial action = do
         False -> removeFile file
       releaseDir = case dirExists of
         True -> return ()
-        False -> removeFile directory
+        False -> removeDirectory directory
       acquire = acquireFile
       release = releaseFile >> releaseDir
   bracket_ acquire release action