RawFilePath conversion

Sponsored-by: Dartmouth College's DANDI project
This commit is contained in:
Joey Hess 2024-01-19 14:26:21 -04:00
parent 703a70cafa
commit 8da85fd3a3
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
4 changed files with 5 additions and 6 deletions

View file

@ -227,7 +227,7 @@ defaultChunkSize = 32 * k - chunkOverhead
-}
watchFileSize
:: (MonadIO m, MonadMask m)
=> FilePath
=> RawFilePath
-> MeterUpdate
-> (MeterUpdate -> m a)
-> m a
@ -245,8 +245,7 @@ watchFileSize f p a = do
p' sz
watcher p' sz
getsz = catchDefaultIO zeroBytesProcessed $
toBytesProcessed <$> getFileSize f'
f' = toRawFilePath f
toBytesProcessed <$> getFileSize f
meterupdate sizevar preventbacktracking n
| preventbacktracking = do