From e975e35d0b911de0a9abfd5e1ab58f96ae3feaf3 Mon Sep 17 00:00:00 2001
From: Smaug123 <patrick+github@patrickstevens.co.uk>
Date: Fri, 26 Jan 2024 11:07:24 +0000
Subject: [PATCH] Remove spurious option type

---
 src/FSharp.Analyzers.Cli/Program.fs | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/src/FSharp.Analyzers.Cli/Program.fs b/src/FSharp.Analyzers.Cli/Program.fs
index f347dab..c6c571f 100644
--- a/src/FSharp.Analyzers.Cli/Program.fs
+++ b/src/FSharp.Analyzers.Cli/Program.fs
@@ -171,12 +171,11 @@ let runProjectAux
             |> Async.Parallel
 
         return
-            Some
-                [
-                    for messages in messagesPerAnalyzer do
-                        let mappedMessages = messages |> List.map (mapMessageToSeverity mappings)
-                        yield! mappedMessages
-                ]
+            [
+                for messages in messagesPerAnalyzer do
+                    let mappedMessages = messages |> List.map (mapMessageToSeverity mappings)
+                    yield! mappedMessages
+            ]
     }
 
 let runProject
@@ -623,6 +622,7 @@ let main argv =
             | [], Some fscArgs ->
                 runFscArgs client fscArgs exclInclFiles severityMapping
                 |> Async.RunSynchronously
+                |> Some
             | projects, None ->
                 for projPath in projects do
                     if not (File.Exists(projPath)) then
@@ -635,7 +635,6 @@ let main argv =
                 )
                 |> Async.Sequential
                 |> Async.RunSynchronously
-                |> Array.choose id
                 |> List.concat
                 |> Some