Fix build on Windows
Thanks to bug reporter for the patch.
This commit is contained in:
parent
9cb250f7be
commit
4b739fc460
8 changed files with 11 additions and 8 deletions
|
@ -131,7 +131,7 @@ checkTransfer t = debugLocks $ do
|
|||
v <- liftIO $ lockShared lck
|
||||
liftIO $ case v of
|
||||
Nothing -> catchDefaultIO Nothing $
|
||||
readTransferInfoFile Nothing tfile
|
||||
readTransferInfoFile Nothing (fromRawFilePath tfile)
|
||||
Just lockhandle -> do
|
||||
dropLock lockhandle
|
||||
cleanstale
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue