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

make sure False is returned on error

Browse source
This commit is contained in:
Joey Hess 2016-12-17 18:31:19 -04:00
parent def2019602
commit b2b6296f9d
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Utility/MagicWormhole.hs
View file

@ -124,7 +124,8 @@ wormHoleProcess :: WormHoleParams -> CreateProcess
wormHoleProcess = proc "wormhole" . toCommand wormHoleProcess = proc "wormhole" . toCommand
runWormHoleProcess :: CreateProcess -> (Handle -> Handle -> IO Bool) -> IO Bool runWormHoleProcess :: CreateProcess -> (Handle -> Handle -> IO Bool) -> IO Bool
runWormHoleProcess p consumer = bracketOnError setup cleanup go runWormHoleProcess p consumer =
bracketOnError setup (\v -> cleanup v <&&> return False) go
where where
setup = do setup = do
(Just hin, Just hout, Nothing, pid) (Just hin, Just hout, Nothing, pid)