build fixes

1 files changed, 3 insertions, 3 deletions

diff --git a/src/Trivmix.hs b/src/Trivmix.hs
index 79b3804..96e578b 100644
--- a/src/Trivmix.hs
+++ b/src/Trivmix.hs
@@ -165,7 +165,7 @@ handleFiles :: INotify -> MVar Level -> [FilePath] -> IO ()
 handleFiles inotify level files = do
   initLevel <- readMVar level
   levelChanges <- (newChan :: IO (Chan Level))
-  stderrLock <- newMVar
+  stderrLock <- newMVar) ()
   let 
     handleFile file = do
       levelChanges' <- dupChan levelChanges
@@ -220,7 +220,7 @@ readLevel :: Chan Level -> MVar Level -> FilePath -> MVar () -> IO ()
 readLevel levelChan current file stderrLock = catch action handler
   where
     action = do
-      level <- withFileLock file Shared $ readFile file >>= readIO . stripSpace
+      level <- withFileLock file Shared $ const $ readFile file >>= readIO . stripSpace
       oldLevel <- readMVar current
       when (oldLevel /= level) $ do
         writeChan levelChan level
@@ -239,7 +239,7 @@ readLevel levelChan current file stderrLock = catch action handler
                           else l
 
 writeLevel :: FilePath -> MVar () -> Level -> IO ()
-writeLevel file stderrLock level = withFileLock file Exclusive $ do
+writeLevel file stderrLock level = withFileLock file Exclusive $ const $ do
   withMVarLock stderrLock $ 
     hPutStrLn stderr $ "Writing out level ‘" ++ (show level) ++ "’ to ‘" ++ file ++ "’"
   writeFile file (show level ++ "\n")