3 files changed, 3 insertions, 3 deletions

diff --git a/trivmix.cabal b/trivmix.cabal
index aa3ea99..0149fb5 100644
--- a/trivmix.cabal
+++ b/trivmix.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                trivmix
-version:             3.1.3
+version:             3.1.4
 -- synopsis:            
 -- description:         
 license:             PublicDomain
diff --git a/trivmix.nix b/trivmix.nix
index 22961b0..34b430a 100644
--- a/trivmix.nix
+++ b/trivmix.nix
@@ -5,7 +5,7 @@
 }:
 mkDerivation {
   pname = "trivmix";
-  version = "3.1.3";
+  version = "3.1.4";
   src = ./.;
   isLibrary = true;
   isExecutable = true;
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