fix slightly debug messages
authorMax Voit <max.voit+gtdv@with-eyes.net>
Wed, 15 Jul 2015 09:45:37 +0000 (11:45 +0200)
committerMax Voit <max.voit+gtdv@with-eyes.net>
Wed, 15 Jul 2015 09:45:37 +0000 (11:45 +0200)
src/Data/Acid/Centered/Master.hs
src/Data/Acid/Centered/Slave.hs

index 01618ee..ce22e84 100644 (file)
@@ -176,7 +176,7 @@ receiveFrame sock = do
         -- todo: pass on exceptions
         Left str -> error $ "Data.Serialize.decode failed on SlaveMessage: " ++ show msg
         Right smsg -> do
-            debug $ "Received from [" ++ show ident ++ "]: "
+            debug $ "Received from [" ++ CS.unpack ident ++ "]: "
                         ++ take 20 (show smsg)
             return (ident, smsg)
 
index f730ed8..91ec449 100644 (file)
@@ -151,7 +151,7 @@ slaveRequestHandler slaveState@SlaveState{..} = forever $ do
             case decode msg of
                 Left str -> error $ "Data.Serialize.decode failed on MasterMessage: " ++ show msg
                 Right mmsg -> do
-                     debug $ "Received " ++ show mmsg
+                     debug $ "Received: " ++ show mmsg
                      case mmsg of
                         -- We are sent an Update to replicate.
                         DoRep r i d -> queueUpdate slaveState (r, i, d)