Small bug fix.

src/Grace.Shared/Validation/Utilities.Validation.fs

@@ -9,17 +9,17 @@ module Utilities =
     /// Returns the first validation that matches the predicate, or None if none match.
     let tryFind<'T> (predicate: 'T -> bool) (validations : ValueTask<'T> array) =
         task {
-            return validations 
-                   |> Seq.map (fun validation -> validation.Result)
-                   |> Seq.tryFind predicate          
+            match validations |> Seq.tryFindIndex (fun validation -> predicate validation.Result) with
+            | Some index -> return Some (validations[index].Result)
+            | None -> return None
         }
 
     /// Retrieves the first error from a list of validations.
     let getFirstError (validations: ValueTask<Result<'T, 'TError>> array) =
         task {
             let! firstError = validations |> tryFind(fun validation -> Result.isError validation)
             return match firstError with
-                   | Some result -> match result with | Ok _ -> None | Error error -> Some error   // This line can't return None, because we'll always have an error if we get here.
+                   | Some result -> match result with | Ok _ -> None | Error error -> Some error   // This line can't actually return None, because we'll always have an error if we get here.
                    | None -> None
         }