Increase the spinner speed

This commit is contained in:
Joshua Clayton 2016-05-07 16:49:55 -04:00
parent ba8159f08d
commit 7756359eda

View File

@ -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]