From 9f564c877b1166f6d0c637a4db0b2453c628efc6 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Tue, 15 May 2018 16:32:33 +0200
Subject: Fix compilation issue

---
 trivmix/Trivmix.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'trivmix')

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
   balance <- newMVar initialBalance
   level' <- newMVar initialLevel
   let withFiles = foldl (.) id $ map (\f -> onStateFile f (show initialLevel ++ "\n")) levelFiles
-                              ++ map (\f -> onStateFile b (show initialBalance ++ "\n")) balanceFiles
+                              ++ map (\f -> onStateFile f (show initialBalance ++ "\n")) balanceFiles
   withFiles $ withINotify $ \inotify -> do
     handleFiles inotify level levelFiles
     handleFiles inotify balance levelFiles
-- 
cgit v1.2.3