@@ -72,11 +72,11 @@ withSpinner' msg mkTrail action = do
7272 logMessage Output_ClearLine
7373 logsM <- modifyStack $ popSpinner $ case resultM of
7474 Nothing ->
75− ( TerminalString_Colorized Red "✖"
75+ ( TerminalString_Colorized Red "FAILED"
7676 , Just msg -- Always display final message if there was an exception.
7777 )
7878 Just result ->
79− ( TerminalString_Colorized Green "✔"
79+ ( TerminalString_Colorized Green "DONE"
8080 , mkTrail <*> pure result
8181 )
8282 -- Last message, finish off with newline.
@@ -102,7 +102,7 @@ withSpinner' msg mkTrail action = do
102102 =<< fmap _cliConfig_spinnerStack getCliConfig
103103 modifyStack f = liftIO . flip atomicModifyIORef' f
104104 =<< fmap _cliConfig_spinnerStack getCliConfig
105− spinner = coloredSpinner defaultSpinnerTheme
105+ spinner = coloredSpinner minimalSpinnerTheme
106106
107107-- | How nested spinner logs should be displayed
108108renderSpinnerStack
@@ -114,7 +114,7 @@ renderSpinnerStack mark = L.intersperse space . go . L.reverse
114114 go [] = []
115115 go (x:[]) = mark : [x]
116116 go (x:xs) = arrow : x : go xs
117− arrow = TerminalString_Colorized Blue "⇾"
117+ arrow = TerminalString_Colorized Blue "->"
118118 space = TerminalString_Normal " "
119119
120120-- | A spinner is simply an infinite list of strings that supplant each other in a delayed loop, creating the
@@ -133,14 +133,14 @@ 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 = ["◐", "◓", "◑", "◒"]
136+_spinnerSticks :: SpinnerTheme
137+_spinnerSticks = ["|", "/", "-", "\\"]
138138
139−spinnerMoon :: SpinnerTheme
140−spinnerMoon = ["🌑", "🌒", "🌓", "🌔", "🌕", "🌖", "🌗", "🌘"]
139+spinnerStick :: SpinnerTheme
140+spinnerStick = ["|", "/", "-", "\\"]
141141
142−defaultSpinnerTheme :: SpinnerTheme
143−defaultSpinnerTheme = spinnerMoon
142+minimalSpinnerTheme :: SpinnerTheme
143+minimalSpinnerTheme = spinnerStick
144144
145145-- | Like `bracket` but the `release` function can know whether an exception was raised
146146bracket' :: MonadMask m => m a -> (a -> Maybe c -> m b) -> (a -> m c) -> m c