diff --git a/src/Unused/CLI/Spinner.hs b/src/Unused/CLI/Spinner.hs index 0065bcc..7b70d03 100644 --- a/src/Unused/CLI/Spinner.hs +++ b/src/Unused/CLI/Spinner.hs @@ -27,7 +27,7 @@ stopSpinner Spinner{ sThreadId = Just tid } = killThread tid buildSpinner :: Spinner buildSpinner = - Spinner snapshots (length snapshots) 100000 colors Nothing + Spinner snapshots (length snapshots) 75000 colors Nothing where snapshots = ["⣾", "⣽", "⣻", "⢿", "⡿", "⣟", "⣯", "⣷"] colors = cycle [Black, Red, Yellow, Green, Blue, Cyan, Magenta]