Set verbosity in Fable.Cli

src/Fable.Cli/Entry.fs

@@ -575,7 +575,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

src/quicktest/QuickTest.fable-temp.csproj

@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project Sdk="Microsoft.NET.Sdk">
+  <!--This is a temporary file used by Fable to restore dependencies.
+If you see this file in your project, you can delete it safely-->
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net8.0</TargetFramework>
+    <RollForward>Major</RollForward>
+    <LangVersion>Preview</LangVersion>
+  </PropertyGroup>
+  <ItemGroup>
+    <Compile Include="QuickTest.fs" />
+    <Content Include="quicktest.fs.js" />
+  </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="../Fable.Core/Fable.Core.fsproj" />
+  </ItemGroup>
+</Project>