diff options
Diffstat (limited to 'trivmix/Trivmix.hs')
-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 |