Now only looping until fixpoint

2 files changed, 5 insertions, 3 deletions

diff --git a/src/Trivmix.hs b/src/Trivmix.hs
index 69fcea2..425de4a 100644
--- a/src/Trivmix.hs
+++ b/src/Trivmix.hs
@@ -194,8 +194,10 @@ readLevel levelChan current file = catch action handler
   where
     action = do
       level <- readFile file >>= readIO . stripSpace
-      writeChan levelChan level
-      hPutStrLn stderr $ "Detected new level: " ++ (show level)
+      oldLevel <- readMVar current
+      when (oldLevel /= level) $ do
+        writeChan levelChan level
+        hPutStrLn stderr $ "Detected new level: " ++ (show level)
     handler e = if isUserError e
                 then do
                   hPutStrLn stderr $ "Could not parse new level from ‘" ++ file ++ "’ - overwriting."
diff --git a/trivmix.cabal b/trivmix.cabal
index 1005508..2dede74 100644
--- a/trivmix.cabal
+++ b/trivmix.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                trivmix
-version:             2.2.4
+version:             2.2.5
 -- synopsis:            
 -- description:         
 license:             PublicDomain