Fix Person.removeByFullName error

nfdi4plants · Aug 24, 2021 · 24f9872 · 24f9872
1 parent 76cdc09
commit 24f9872
Showing 1 changed file with 5 additions and 6 deletions.
diff --git a/src/ISADotnet/API/Person.fs b/src/ISADotnet/API/Person.fs
@@ -60,13 +60,12 @@ module Person =
 
     /// If a person with the given FirstName, MidInitials and LastName exists in the list, removes it
     let removeByFullName (firstName : string) (midInitials : string) (lastName : string) (persons : Person list) =
-        List.filter (fun p -> 
-            if midInitials = "" then 
-                p.FirstName = Some firstName && p.LastName = Some lastName
+        List.filter (fun p ->
+            if midInitials = "" then
+                (p.FirstName = Some firstName && p.LastName = Some lastName)
                 |> not
-            else 
-
-                p.FirstName = Some firstName && p.MidInitials = Some midInitials && p.LastName = Some lastName
+            else
+                (p.FirstName = Some firstName && p.MidInitials = Some midInitials && p.LastName = Some lastName)
                 |> not
         ) persons