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
hPutStr h passphrase
hClose h
let passphrasefile = [Param "--passphrase-file", File tmpfile]
go $ passphrasefile ++ params
let passphrasefile = [Param "--passphrase-file", File tmpfile]
go $ passphrasefile ++ params
#endif
where
go params' = pipeLazy params' feeder reader