diff options
| -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) |