Ya

app/ghcup/Main.hs

@@ -8,28 +8,32 @@
 
 module Main where
 
+import           GHCup
+import           GHCup.File
+import           GHCup.Logger
+import           GHCup.Prelude
+import           GHCup.Types
+
 import           Control.Monad.Logger
 import           Control.Monad.Reader
 import           Data.Bifunctor
-import qualified Data.ByteString.UTF8          as UTF8
 import           Data.Char
 import           Data.List                      ( intercalate )
 import           Data.Semigroup                 ( (<>) )
+import           Data.String.Interpolate
 import           Data.String.QQ
-import qualified Data.Text                     as T
 import           Data.Versions
-import           GHCup
-import           GHCup.Logger
-import           GHCup.File
-import           GHCup.Prelude
-import           GHCup.Types
 import           Haskus.Utils.Variant.Excepts
 import           Options.Applicative     hiding ( style )
 import           System.Console.Pretty
 import           System.Exit
-import           URI.ByteString
+import           System.IO
 import           Text.Layout.Table
-import           Data.String.Interpolate
+import           URI.ByteString
+
+import qualified Data.ByteString               as B
+import qualified Data.ByteString.UTF8          as UTF8
+import qualified Data.Text                     as T
 
 
 
@@ -236,12 +240,14 @@ toSettings Options {..} =
 
 main :: IO ()
 main = do
-  -- logger interpreter
-  let runLogger = myLoggerTStderr
 
   customExecParser (prefs showHelpOnError) (info (opts <**> helper) idm)
     >>= \opt@Options {..} -> do
-          let settings = toSettings opt
+          let settings  = toSettings opt
+
+          -- logger interpreter
+          let runLogger = myLoggerT (LoggerConfig optVerbose $ B.hPut stderr)
+
           -- wrapper to run effects with settings
           let runInstTool =
                 runLogger