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

improve indent

Browse source
This commit is contained in:
Joey Hess 2018-06-14 11:40:23 -04:00
parent 1a0620fdf8
commit 4a3f1a15c5
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
P2P/IO.hs
View file

@ -164,10 +164,10 @@ runNet runst conn runner f = case f of
Left e -> return (Left (show e)) Left e -> return (Left (show e))
Right Nothing -> return (Left "protocol error") Right Nothing -> return (Left "protocol error")
Right (Just l) -> case parseMessage l of Right (Just l) -> case parseMessage l of
Just m -> do Just m -> do
liftIO $ debugMessage "P2P <" m liftIO $ debugMessage "P2P <" m
runner (next (Just m)) runner (next (Just m))
Nothing -> runner (next Nothing) Nothing -> runner (next Nothing)
SendBytes len b p next -> do SendBytes len b p next -> do
v <- liftIO $ tryNonAsync $ do v <- liftIO $ tryNonAsync $ do
ok <- sendExactly len b (connOhdl conn) p ok <- sendExactly len b (connOhdl conn) p