This commit is contained in:
Joey Hess 2018-10-22 15:54:12 -04:00
parent 9fdd91816d
commit 7b33e6c9f3
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -236,7 +236,7 @@ debugMessage :: P2PConnection -> String -> Message -> IO ()
debugMessage conn prefix m = do
tid <- myThreadId
debugM "p2p" $ concat $ catMaybes $
[ (\ident -> "[connection: " ++ ident ++ "] ") <$> mident
[ (\ident -> "[" ++ ident ++ "] ") <$> mident
, Just $ "[" ++ show tid ++ "] "
, Just $ prefix ++ " " ++ unwords (formatMessage safem)
]