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 | |
| 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
| -rw-r--r-- | trivmix.cabal | 2 | ||||
| -rw-r--r-- | trivmix.nix | 2 | ||||
| -rw-r--r-- | trivmix/Trivmix.hs | 2 |
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 @@ | |||
| 2 | -- documentation, see http://haskell.org/cabal/users-guide/ | 2 | -- documentation, see http://haskell.org/cabal/users-guide/ |
| 3 | 3 | ||
| 4 | name: trivmix | 4 | name: trivmix |
| 5 | version: 3.1.3 | 5 | version: 3.1.4 |
| 6 | -- synopsis: | 6 | -- synopsis: |
| 7 | -- description: | 7 | -- description: |
| 8 | license: PublicDomain | 8 | license: PublicDomain |
diff --git a/trivmix.nix b/trivmix.nix index 22961b0..34b430a 100644 --- a/trivmix.nix +++ b/trivmix.nix | |||
| @@ -5,7 +5,7 @@ | |||
| 5 | }: | 5 | }: |
| 6 | mkDerivation { | 6 | mkDerivation { |
| 7 | pname = "trivmix"; | 7 | pname = "trivmix"; |
| 8 | version = "3.1.3"; | 8 | version = "3.1.4"; |
| 9 | src = ./.; | 9 | src = ./.; |
| 10 | isLibrary = true; | 10 | isLibrary = true; |
| 11 | isExecutable = true; | 11 | 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 | |||
| 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 |