diff options
author | Gregor Kleen <gkleen@yggdrasil.li> | 2018-05-15 16:32:33 +0200 |
---|---|---|
committer | Gregor Kleen <gkleen@yggdrasil.li> | 2018-05-15 16:32:33 +0200 |
commit | 9f564c877b1166f6d0c637a4db0b2453c628efc6 (patch) | |
tree | 8ae9f78bc809d7d024e62a8c4f6647e14c5743a9 /trivmix | |
parent | 1010c8a31e2b441683f5d8c3905a87d4369e7586 (diff) | |
download | trivmix-9f564c877b1166f6d0c637a4db0b2453c628efc6.tar trivmix-9f564c877b1166f6d0c637a4db0b2453c628efc6.tar.gz trivmix-9f564c877b1166f6d0c637a4db0b2453c628efc6.tar.bz2 trivmix-9f564c877b1166f6d0c637a4db0b2453c628efc6.tar.xz trivmix-9f564c877b1166f6d0c637a4db0b2453c628efc6.zip |
Fix compilation issue
Diffstat (limited to 'trivmix')
-rw-r--r-- | trivmix/Trivmix.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/trivmix/Trivmix.hs b/trivmix/Trivmix.hs index 825e3fa..0758921 100644 --- a/trivmix/Trivmix.hs +++ b/trivmix/Trivmix.hs | |||
@@ -153,7 +153,7 @@ trivmix Options{..} = do | |||
153 | balance <- newMVar initialBalance | 153 | balance <- newMVar initialBalance |
154 | level' <- newMVar initialLevel | 154 | level' <- newMVar initialLevel |
155 | let withFiles = foldl (.) id $ map (\f -> onStateFile f (show initialLevel ++ "\n")) levelFiles | 155 | let withFiles = foldl (.) id $ map (\f -> onStateFile f (show initialLevel ++ "\n")) levelFiles |
156 | ++ map (\f -> onStateFile b (show initialBalance ++ "\n")) balanceFiles | 156 | ++ map (\f -> onStateFile f (show initialBalance ++ "\n")) balanceFiles |
157 | withFiles $ withINotify $ \inotify -> do | 157 | withFiles $ withINotify $ \inotify -> do |
158 | handleFiles inotify level levelFiles | 158 | handleFiles inotify level levelFiles |
159 | handleFiles inotify balance levelFiles | 159 | handleFiles inotify balance levelFiles |