RawFilePath conversion
Sponsored-by: Dartmouth College's DANDI project
This commit is contained in:
parent
703a70cafa
commit
8da85fd3a3
4 changed files with 5 additions and 6 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue