fix windows build

This commit is contained in:
Joey Hess 2020-07-02 11:35:05 -04:00
parent b2f4b84d27
commit 8ad433d5f0
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -364,7 +364,7 @@ retrieveExportWithContentIdentifierM dir loc cid dest mkkey p =
#else
let open = openBinaryFile f ReadMode
let close = hClose
bracketIO setup close $ \h -> do
bracketIO open close $ \h -> do
#endif
liftIO $ hGetContentsMetered h p >>= L.writeFile dest
k <- mkkey