rename bothHandles -> ioHandles

This commit is contained in:
Joey Hess 2015-04-03 15:33:28 -04:00
parent bc0180da83
commit 1c91024978
6 changed files with 15 additions and 14 deletions

View file

@ -87,7 +87,7 @@ readStrict params = do
pipeStrict :: [CommandParam] -> String -> IO String
pipeStrict params input = do
params' <- stdParams params
withBothHandles createProcessSuccess (proc gpgcmd params') $ \(to, from) -> do
withIOHandles createProcessSuccess (proc gpgcmd params') $ \(to, from) -> do
hSetBinaryMode to True
hSetBinaryMode from True
hPutStr to input