[aura] Improve scold signature

aura/exec/aura.hs

@@ -82,7 +82,7 @@ execute env p = first f <$> try (runRIO env . execOpts $ _operation p)
     f (Failure fl) = fl $ langOf (settings env)
 
 exit :: Settings -> Either (Doc AnsiStyle) () -> IO a
-exit ss (Left e)  = scold ss e *> exitFailure
+exit ss (Left e)  = scold ss (const e) *> exitFailure
 exit _  (Right _) = exitSuccess
 
 execOpts :: Either (PacmanOp, Set MiscOp) AuraOp -> RIO Env ()

aura/lib/Aura/Build.hs

@@ -118,7 +118,7 @@ overwritePkgbuild ss p = when (switch ss HotEdit || switch ss UseCustomizepkg) $
 buildFail :: Failure -> RIO Env (Maybe a)
 buildFail (Failure err) = do
   ss <- asks settings
-  liftIO . scold ss . err $ langOf ss
+  scold ss err
   withOkay ss buildFail_6 buildFail_5 $ pure Nothing
 
 -- | Moves a file to the pacman package cache and returns its location.

aura/lib/Aura/Core.hs

@@ -190,8 +190,8 @@ warn :: MonadIO m => Settings -> (Language -> Doc AnsiStyle) -> m ()
 warn ss msg = putStrLnA ss $ yellow (msg $ langOf ss)
 
 -- | Print some message in red with Aura flair.
-scold :: Settings -> Doc AnsiStyle -> IO ()
-scold ss = putStrLnA ss . red
+scold :: MonadIO m => Settings -> (Language -> Doc AnsiStyle) -> m ()
+scold ss msg = putStrLnA ss $ red (msg $ langOf ss)
 
 -- | Report a message with multiple associated items. Usually a list of
 -- naughty packages.

aura/lib/Aura/Install.hs

@@ -112,7 +112,7 @@ analysePkgbuild b = do
     Just l  -> case bannedTerms l of
       []  -> pure ()
       bts -> do
-        liftIO $ scold ss (security_5 (bName b) $ langOf ss)
+        scold ss . security_5 $ bName b
         liftIO $ traverse_ (displayBannedTerms ss) bts
         f