Apply more comments from review

fsprojects · Mar 12, 2018 · 35a8a9e · 35a8a9e
1 parent c9d5d4b
commit 35a8a9e
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/Argu/PreCompute.fs b/src/Argu/PreCompute.fs
@@ -433,8 +433,7 @@ let rec private preComputeUnionCaseArgInfo (stack : Type list) (helpParam : Help
 
                 yield!
                     attributes.Value
-                    |> Array.filter (fun x -> x :? AltCommandLineAttribute)
-                    |> Array.collect(fun x -> (x :?> AltCommandLineAttribute).Names)
+                    |> Array.collect(function | :? AltCommandLineAttribute as a -> a.Names | _ -> [||])
             ]
 
             for name in cliNames do validateCliParam name