fix windows build

This commit is contained in:
Joey Hess 2013-09-06 17:05:41 -04:00
parent dce7389dd0
commit cbc5aa623d

View file

@ -115,8 +115,8 @@ feedRead params passphrase feeder reader = do
withTmpFile "gpg" $ \tmpfile h -> do withTmpFile "gpg" $ \tmpfile h -> do
hPutStr h passphrase hPutStr h passphrase
hClose h hClose h
let passphrasefile = [Param "--passphrase-file", File tmpfile] let passphrasefile = [Param "--passphrase-file", File tmpfile]
go $ passphrasefile ++ params go $ passphrasefile ++ params
#endif #endif
where where
go params' = pipeLazy params' feeder reader go params' = pipeLazy params' feeder reader