fix windows build
This commit is contained in:
parent
b2f4b84d27
commit
8ad433d5f0
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue