Anonymous user
File size distribution: Difference between revisions
m
→{{header|Haskell}}
Line 512:
expand = foldr f . withStrategy (parTraversable rseq) <*>
Map.mapWithKey groupsFromGroup . Map.filter (> groupThreshold)
where
f :: Maybe (FGKey, FrequencyGroups) -- ^ expanded frequency group
Line 562 ⟶ 561:
pure []
where
tryCollect = (fmap (folderPath </>) <$> listDirectory folderPath) >>=
False -> File p <$> withFile p ReadMode hFileSize)▼
▲ isFolder <- doesDirectoryExist p
▲ File p <$> withFile p ReadMode hFileSize
parallelItemCollector :: FilePath -> IO [Item]
|