Fix a few more FS3548 warnings

fsprojects · Sep 22, 2024 · 0103965 · 0103965
1 parent 050e199
commit 0103965
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 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
@@ -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
@@ -360,15 +360,15 @@ 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
             attributes
             |> 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