diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-01-04 12:52:22 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-01-04 13:07:57 -0400 |
| commit | 7c2277aa0ccbd1ec35e00bbdfa28cf02c352c7a1 (patch) | |
| tree | 5023fa48f2287cef2c1181628dbed5b305880e13 /Utility/Gpg.hs | |
| parent | 75a88861e4cdc04e4d9f4e926e94632a21b2bad3 (diff) | |
Fix build with process 1.2.1.0.
Diffstat (limited to 'Utility/Gpg.hs')
| -rw-r--r-- | Utility/Gpg.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Utility/Gpg.hs b/Utility/Gpg.hs index 50f78a1de..cda89028f 100644 --- a/Utility/Gpg.hs +++ b/Utility/Gpg.hs @@ -19,6 +19,7 @@ import qualified Build.SysConfig as SysConfig #ifndef mingw32_HOST_OS import System.Posix.Types +import qualified System.Posix.IO import System.Path import Utility.Env #else @@ -108,7 +109,7 @@ feedRead :: (MonadIO m, MonadMask m) => [CommandParam] -> String -> (Handle -> I feedRead params passphrase feeder reader = do #ifndef mingw32_HOST_OS -- pipe the passphrase into gpg on a fd - (frompipe, topipe) <- liftIO createPipe + (frompipe, topipe) <- liftIO System.Posix.IO.createPipe liftIO $ void $ forkIO $ do toh <- fdToHandle topipe hPutStrLn toh passphrase |