diff --git a/P2P/IO.hs b/P2P/IO.hs
index 840980c5ab..18971d9f3e 100644
--- a/P2P/IO.hs
+++ b/P2P/IO.hs
@@ -164,10 +164,10 @@ runNet runst conn runner f = case f of
 			Left e -> return (Left (show e))
 			Right Nothing -> return (Left "protocol error")
 			Right (Just l) -> case parseMessage l of
-					Just m -> do
-						liftIO $ debugMessage "P2P <" m
-						runner (next (Just m))
-					Nothing -> runner (next Nothing)
+				Just m -> do
+					liftIO $ debugMessage "P2P <" m
+					runner (next (Just m))
+				Nothing -> runner (next Nothing)
 	SendBytes len b p next -> do
 		v <- liftIO $ tryNonAsync $ do
 			ok <- sendExactly len b (connOhdl conn) p