Now only looping until fixpoint

1 files changed, 4 insertions, 2 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."