joshuaclayton/unused
1
1
Fork 0
mirror of https://github.com/joshuaclayton/unused.git synced 2024-08-15 15:50:26 +03:00
Code Issues Projects Releases Wiki Activity

Extract ioOps calculation

Browse Source
This commit is contained in:
Joshua Clayton 2016-05-13 14:44:03 -04:00
parent 2ec73ac3b3
commit bbb178f7d5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Unused/CLI/ProgressIndicator.hs
View File

@ -23,4 +23,6 @@ progressWithIndicator :: (a -> IO [b]) -> ProgressIndicator -> [a] -> IO [b]
progressWithIndicator f i terms = do
printPrefix i
indicator <- start i $ length terms
concat <$> mapM (\t -> f t <* increment indicator) terms <* stop indicator
concat <$> sequence (ioOps indicator) <* stop indicator
where
ioOps i' = map (\t -> f t <* increment i') terms