diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-12-17 18:31:19 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-12-17 18:31:19 -0400 |
| commit | 32e2008eef8ed2cfbfc6e70db9b18bcff1d5fdf1 (patch) | |
| tree | a53998a494010b959bec22abeb3013cc6fbcbe58 /Utility | |
| parent | d93389822e1a678416e7973f190d971671f0f439 (diff) | |
make sure False is returned on error
Diffstat (limited to 'Utility')
| -rw-r--r-- | Utility/MagicWormhole.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Utility/MagicWormhole.hs b/Utility/MagicWormhole.hs index 4e155e6e2..a71cc69e0 100644 --- a/Utility/MagicWormhole.hs +++ b/Utility/MagicWormhole.hs @@ -124,7 +124,8 @@ wormHoleProcess :: WormHoleParams -> CreateProcess wormHoleProcess = proc "wormhole" . toCommand 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 setup = do (Just hin, Just hout, Nothing, pid) |