fix windows build

This commit is contained in:
Joey Hess 2014-08-10 15:30:55 -04:00
parent 54b74ef8db
commit c27d9f909b

View file

@ -119,8 +119,8 @@ feedRead params passphrase feeder reader = do
#else
-- store the passphrase in a temp file for gpg
withTmpFile "gpg" $ \tmpfile h -> do
hPutStr h passphrase
hClose h
liftIO $ hPutStr h passphrase
liftIO $ hClose h
let passphrasefile = [Param "--passphrase-file", File tmpfile]
go $ passphrasefile ++ params
#endif