get rid of unnecessary parenthesis.

fsprojects · Jul 10, 2016 · 1650f39 · 1650f39
1 parent 9b1774c
commit 1650f39
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/src/Paket.Core/PlatformMatching.fs b/src/Paket.Core/PlatformMatching.fs
@@ -184,15 +184,13 @@ let getCondition (referenceCondition:string option) (targets : TargetProfile lis
         let andString = 
             conditions
             |> List.map (fun (group,conditions) ->
-                match List.ofSeq conditions with
-                | [ _,"" ] -> group
-                | [ _,detail ] -> sprintf "%s And %s" group detail
+                match List.ofSeq (conditions |> Seq.map snd |> Set.ofSeq) with
+                | [ "" ] -> group
+                | [ detail ] -> sprintf "%s And %s" group detail
                 | [] -> "false"
                 | conditions ->
                     let detail =
                         conditions
-                        |> List.map snd
-                        |> Set.ofSeq
                         |> fun cs -> String.Join(" Or ",cs)
                     sprintf "%s And (%s)" group detail)