fix: debug messages on increments, updatenodestatus
authorMax Voit <max.voit+gtdv@with-eyes.net>
Thu, 6 Aug 2015 09:56:29 +0000 (11:56 +0200)
committerMax Voit <max.voit+gtdv@with-eyes.net>
Thu, 6 Aug 2015 09:56:29 +0000 (11:56 +0200)
makefile
src/Data/Acid/Centered/Master.hs
src/Data/Acid/Centered/Slave.hs

index 33b7c41..dabaca4 100644 (file)
--- a/makefile
+++ b/makefile
@@ -1,9 +1,8 @@
-all-test:
+test:
        cabal clean
-       cabal configure --enable-test --enable-benchmarks
+       cabal configure --enable-test
        cabal build
        cabal test | grep --color -C 999 PASS
-       #cabal bench
 
 bench:
        cabal clean
index a844982..f7f8c3a 100644 (file)
@@ -152,8 +152,8 @@ removeFromNodeStatus nodeStatus ident =
 updateNodeStatus :: MasterState st -> NodeIdentity -> Int -> IO ()
 updateNodeStatus MasterState{..} ident r =
     modifyMVar_ nodeStatus $ \ns -> do
-        when (M.findWithDefault 0 ident ns /= (r - 1)) $
-            error $ "Invalid increment of node status " ++ show ns ++ " -> " ++ show r
+        when (ns M.! ident /= (r - 1)) $
+            error $ "Invalid increment of node status " ++ show (ns M.! ident) ++ " -> " ++ show r
         let rns = M.adjust (+1) ident ns
         -- only for redundant operation:
         when ((repRedundancy > 1) && (M.size (M.filter (>=r) rns) >= (repRedundancy - 1))) $ do
index 76e1dfc..cedc2ce 100644 (file)
@@ -345,7 +345,7 @@ replicateUpdate slaveState@SlaveState{..} rev reqId event syncing = do
                 return rev
             else do
                 sendToMaster slaveZmqSocket RepError
-                void $ error $ "Replication failed at revision " ++ show rev ++ " -> " ++ show nr
+                void $ error $ "Replication failed at revision " ++ show nr ++ " -> " ++ show rev
                 void $ forkIO $ liberateState slaveState
                 return nr