cleanup

dotnet · Dec 15, 2016 · 90f4fc8 · 90f4fc8
1 parent 7f86562
commit 90f4fc8
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/fsharp/NameResolution.fs b/src/fsharp/NameResolution.fs
@@ -864,9 +864,9 @@ let rec CollectAtMostOneResult f = function
     | [] -> NoResultsOrUsefulErrors
     | [h] -> OneResult (f h)
     | h :: t ->
-        match OneResult (f h) with
-        | Result r when not (isNil r) -> Result r
-        | r -> AddResults r (CollectAtMostOneResult f t)
+        match f h with
+        | Result r -> Result [r]
+        | Exception e -> AddResults (Exception e) (CollectAtMostOneResult f t)
 
 let CollectResults2 atMostOne f = if atMostOne then CollectAtMostOneResult f else CollectResults f