From 01039657c6b6a1254ff31d5cd1ac3a2512af3b8e Mon Sep 17 00:00:00 2001
From: Richard Webb <richard.webb@helpsystems.com>
Date: Sun, 22 Sep 2024 17:54:46 +0100
Subject: [PATCH] Fix a few more FS3548 warnings

---
 .../Fake.Core.CommandLineParsing/docopt.fs/Docopt/Ast.fs    | 6 +++---
 src/app/Fake.DotNet.AssemblyInfoFile/AssemblyInfoFile.fs    | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/app/Fake.Core.CommandLineParsing/docopt.fs/Docopt/Ast.fs b/src/app/Fake.Core.CommandLineParsing/docopt.fs/Docopt/Ast.fs
index eb83f5ea54d..9d8f6dba09d 100644
--- a/src/app/Fake.Core.CommandLineParsing/docopt.fs/Docopt/Ast.fs
+++ b/src/app/Fake.Core.CommandLineParsing/docopt.fs/Docopt/Ast.fs
@@ -93,19 +93,19 @@ type UsageAstBuilder =
 
     member x.UsageTag =
         match x with
-        | UsageAstBuilder.Eps _ -> Tag.Eps
+        | UsageAstBuilder.Eps -> Tag.Eps
         | UsageAstBuilder.Ano _ -> Tag.Ano
         | UsageAstBuilder.Sop _ -> Tag.Sop
         | UsageAstBuilder.Lop _ -> Tag.Lop
         | UsageAstBuilder.Sqb _ -> Tag.Sqb
         | UsageAstBuilder.Req _ -> Tag.Req
         | UsageAstBuilder.Arg _ -> Tag.Arg
-        | UsageAstBuilder.XorEmpty _ -> Tag.Xor
+        | UsageAstBuilder.XorEmpty -> Tag.Xor
         | UsageAstBuilder.Xor _ -> Tag.Xor
         | UsageAstBuilder.Seq _ -> Tag.Seq
         | UsageAstBuilder.Cmd _ -> Tag.Cmd
         | UsageAstBuilder.Ell _ -> Tag.Ell
-        | UsageAstBuilder.Sdh _ -> Tag.Sdh
+        | UsageAstBuilder.Sdh -> Tag.Sdh
 
 and UsageAstCell =
     { mutable Content: UsageAstBuilder option }
diff --git a/src/app/Fake.DotNet.AssemblyInfoFile/AssemblyInfoFile.fs b/src/app/Fake.DotNet.AssemblyInfoFile/AssemblyInfoFile.fs
index 2f5ec61b005..c1cfe0aa118 100644
--- a/src/app/Fake.DotNet.AssemblyInfoFile/AssemblyInfoFile.fs
+++ b/src/app/Fake.DotNet.AssemblyInfoFile/AssemblyInfoFile.fs
@@ -360,7 +360,7 @@ module AssemblyInfoFile =
             |> Seq.tryFind (fun (attr: Attribute) -> attr.Name = "AssemblyVersion")
         with
         | Some attr -> attr.Value
-        | None _ -> "\"" + BuildServer.buildVersion + "\""
+        | None -> "\"" + BuildServer.buildVersion + "\""
 
     let private getAssemblyInformationalVersion attributes =
         match
@@ -368,7 +368,7 @@ module AssemblyInfoFile =
             |> Seq.tryFind (fun (attr: Attribute) -> attr.Name = "AssemblyInformationalVersion")
         with
         | Some attr -> attr.Value
-        | None _ -> getAssemblyVersionInfo attributes
+        | None -> getAssemblyVersionInfo attributes
 
     let private getSortedAndNumberedAttributes (attrs: seq<Attribute>) =
         attrs