@@ -6,7 +6,7 @@ module Obelisk.CliApp.Spinner (withSpinner) where
66
77import Control.Concurrent (killThread, threadDelay)
88import Control.Monad (forM_, (>=>))
9−import Control.Monad.Catch (MonadMask, bracket_, mask, onException)
9+import Control.Monad.Catch (MonadMask, mask, onException)
1010import Control.Monad.IO.Class
1111import Control.Monad.Log (Severity (..), logMessage)
1212import Control.Monad.Reader (MonadIO)
@@ -26,12 +26,9 @@ withSpinner
2626withSpinner s f = do
2727 noSpinner <- _cliConfig_noSpinner <$> getCliConfig
2828 if noSpinner
29− then bracket_ runFake (pure ()) f
29+ then putLog Notice s >> f
3030 else bracket' run cleanup $ const f
3131 where
32− runFake = do
33− putLog Notice s
34− pure []
3532 run = do
3633 -- Add this log to the spinner stack
3734 stack <- _cliConfig_spinnerStack <$> getCliConfig