Add "Diagnose" argument

Author: razzmatazz

src/CSharpLanguageServer/Program.fs

@@ -11,62 +11,69 @@ open Serilog.Events
 open CSharpLanguageServer.Types
 open CSharpLanguageServer.Lsp
 
+
 type CLIArguments =
     | [<AltCommandLine("-v")>] Version
     | [<AltCommandLine("-l")>] LogLevel of level:string
     | [<AltCommandLine("-s")>] Solution of solution:string
+    | Diagnose
     with
         interface IArgParserTemplate with
             member s.Usage =
                 match s with
-                | Version -> "display versioning information"
-                | Solution _ -> ".sln file to load (relative to CWD)"
-                | LogLevel _ -> "log level, <log|info|warning|error>; default is `log`"
+                | Version -> "Display versioning information"
+                | Solution _ -> "Specify .sln file to load (relative to CWD)"
+                | LogLevel _ -> "Set log level, <log|info|warning|error>; default is `log`"
+                | Diagnose -> "Run diagnostics"
+
 
 [<EntryPoint>]
 let entry args =
-    try
-        let argParser = ArgumentParser.Create<CLIArguments>(programName = "csharp-ls")
-        let serverArgs = argParser.Parse args
+    let argParser = ArgumentParser.Create<CLIArguments>(programName = "csharp-ls")
+    let serverArgs = argParser.Parse args
+
+    let logLevelArg =
+            serverArgs.TryGetResult(<@ LogLevel @>)
+            |> Option.defaultValue "log"
+
+    let logLevel =
+        match logLevelArg with
+            | "error" -> LogEventLevel.Error
+            | "warning" -> LogEventLevel.Warning
+            | "info" -> LogEventLevel.Information
+            | "log" -> LogEventLevel.Verbose
+            | _ -> LogEventLevel.Information
 
-        serverArgs.TryGetResult(<@ CLIArguments.Version @>)
+    let logConfig =
+        LoggerConfiguration()
+            .MinimumLevel.ControlledBy(LoggingLevelSwitch(logLevel))
+            .Enrich.FromLogContext()
+            .WriteTo.Async(fun conf ->
+                conf.Console(
+                    outputTemplate =
+                        "[{Timestamp:HH:mm:ss.fff} {Level:u3}] [{SourceContext}] {Message:lj}{NewLine}{Exception}",
+                    // Redirect all logs to stderr since stdout is used to communicate with client.
+                    standardErrorFromLevel = Nullable<_>(LogEventLevel.Verbose),
+                    theme = Serilog.Sinks.SystemConsole.Themes.AnsiConsoleTheme.Code
+                )
+                |> ignore)
+
+    Log.Logger <- logConfig.CreateLogger()
+
+    let settings = {
+        ServerSettings.Default with
+            SolutionPath = serverArgs.TryGetResult(<@ Solution @>)
+            LogLevel = logLevelArg
+    }
+
+    try
+        serverArgs.TryGetResult(<@ Version @>)
             |> Option.iter (fun _ -> printfn "csharp-ls, %s"
                                              (Assembly.GetExecutingAssembly().GetName().Version |> string)
                                      exit 0)
 
-        let logLevelArg =
-            serverArgs.TryGetResult(<@ CLIArguments.LogLevel @>)
-            |> Option.defaultValue "log"
-
-        let logLevel =
-            match logLevelArg with
-                | "error" -> LogEventLevel.Error
-                | "warning" -> LogEventLevel.Warning
-                | "info" -> LogEventLevel.Information
-                | "log" -> LogEventLevel.Verbose
-                | _ -> LogEventLevel.Information
-
-        let logConfig =
-                LoggerConfiguration()
-                    .MinimumLevel.ControlledBy(LoggingLevelSwitch(logLevel))
-                    .Enrich.FromLogContext()
-                    .WriteTo.Async(fun conf ->
-                        conf.Console(
-                            outputTemplate =
-                                "[{Timestamp:HH:mm:ss.fff} {Level:u3}] [{SourceContext}] {Message:lj}{NewLine}{Exception}",
-                            // Redirect all logs to stderr since stdout is used to communicate with client.
-                            standardErrorFromLevel = Nullable<_>(LogEventLevel.Verbose),
-                            theme = Serilog.Sinks.SystemConsole.Themes.AnsiConsoleTheme.Code
-                        )
-                        |> ignore)
-
-        Log.Logger <- logConfig.CreateLogger()
-
-        let settings = {
-            ServerSettings.Default with
-                SolutionPath = serverArgs.TryGetResult(<@ CLIArguments.Solution @>)
-                LogLevel = logLevelArg
-        }
+        serverArgs.TryGetResult(<@ Diagnose @>)
+            |> Option.iter (fun _ -> failwith "not implemented")
 
         Server.start settings
     with