@@ -133,14 +133,8 @@ runSpinner spinner f = forM_ spinner $ f >=> const delay
133133type SpinnerTheme = [Text]
134134
135135-- Find more spinners at https://github.com/sindresorhus/cli-spinners/blob/master/spinners.json
136−_spinnerCircleHalves :: SpinnerTheme
137−_spinnerCircleHalves = ["◐", "◓", "◑", "◒"]
138−
139−spinnerMoon :: SpinnerTheme
140−spinnerMoon = ["🌑", "🌒", "🌓", "🌔", "🌕", "🌖", "🌗", "🌘"]
141−
142136defaultSpinnerTheme :: SpinnerTheme
143−defaultSpinnerTheme = spinnerMoon
137+defaultSpinnerTheme = ["◐", "◓", "◑", "◒"]
144138
145139-- | Like `bracket` but the `release` function can know whether an exception was raised
146140bracket' :: MonadMask m => m a -> (a -> Maybe c -> m b) -> (a -> m c) -> m c