Set verbosity in Fable.Cli

.gitignore

@@ -221,4 +221,6 @@ tests/**/*.actual
 
 # Analyzers
 *.sarif
+
+# Temp proj file
 *.fable-temp.csproj

src/Fable.Cli/Entry.fs

@@ -546,7 +546,7 @@ let main argv =
                 |> ignore
             )
 
-        Log.setLogger (factory.CreateLogger(""))
+        Log.setLogger verbosity (factory.CreateLogger(""))
         factory.Dispose()
 
         logPrelude commands language

src/Fable.Compiler/Util.fs

@@ -85,9 +85,14 @@ module Log =
     open Microsoft.Extensions.Logging.Abstractions
 
     let mutable logger: ILogger = NullLogger.Instance
-    let setLogger newLogger = logger <- newLogger
-    let newLine = Environment.NewLine
     let mutable private verbosity = Fable.Verbosity.Normal
+
+    let setLogger v newLogger =
+        verbosity <- v
+        logger <- newLogger
+
+    let newLine = Environment.NewLine
+
     let isVerbose () = verbosity = Fable.Verbosity.Verbose
     let always (msg: string) = logger.LogInformation msg
 

src/Fable.Compiler/Util.fsi

@@ -41,7 +41,7 @@ module Log =
     open Microsoft.Extensions.Logging
 
     /// To be called only at the beginning of the app
-    val setLogger: ILogger -> unit
+    val setLogger: Fable.Verbosity -> ILogger -> unit
     val newLine: string
     val always: msg: string -> unit
     val verbose: msg: Lazy<string> -> unit