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

Be more flexible with progress indicator types

Browse Source
This commit is contained in:
Joshua Clayton 2016-05-26 05:56:24 -04:00
parent fb1198dc2f
commit 279cdfa494
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -20,11 +20,11 @@ createSpinner =
snapshots = ["⣾", "⣽", "⣻", "⢿", "⡿", "⣟", "⣯", "⣷"]
colors = cycle [Black, Red, Yellow, Green, Blue, Cyan, Magenta]
progressWithIndicator :: (a -> IO [b]) -> ProgressIndicator -> [a] -> IO [b]
progressWithIndicator :: Monoid b => (a -> IO b) -> ProgressIndicator -> [a] -> IO b
progressWithIndicator f i terms = do
printPrefix i
(tid, indicator) <- start i $ length terms
installChildInterruptHandler tid
concat <$> parallel (ioOps indicator) <* stop indicator <* stopGlobalPool
mconcat <$> parallel (ioOps indicator) <* stop indicator <* stopGlobalPool
where
ioOps i' = map (\t -> f t <* increment i') terms