From 35a8a9edcbaa67157a755a5e74498c2254b47c23 Mon Sep 17 00:00:00 2001
From: Julien Roncaglia <julien@roncaglia.fr>
Date: Mon, 12 Mar 2018 21:27:54 +0100
Subject: [PATCH] Apply more comments from review

---
 src/Argu/PreCompute.fs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/Argu/PreCompute.fs b/src/Argu/PreCompute.fs
index b4a9a1ca..89f5cce2 100644
--- 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