mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

simplify

Browse source
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
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
P2P/IO.hs
View file

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