Merge pull request #143 from rachelreese/master

More idiomatically F#. :)
lefthandedgoat · Apr 6, 2014 · d04e488 · d04e488
2 parents 5851c9e + 74baeba
commit d04e488
Showing 1 changed file with 9 additions and 9 deletions.
diff --git a/canopy/canopy.fs b/canopy/canopy.fs
@@ -297,16 +297,16 @@ let ( << ) cssSelector text =
                 try e.Clear() with ex -> ex |> ignore
                 e.SendKeys(text)
 
-        let atleastOneItemWritten = ref false
         elements cssSelector
-        |> List.iter (fun elem -> 
-            try  
-                writeToElement elem
-                atleastOneItemWritten := true
-            with
-                | :? CanopyReadOnlyException as ex -> raise ex
-                | _ -> ())
-        !atleastOneItemWritten)
+            |> List.map (fun elem -> 
+                try  
+                    writeToElement elem
+                    true
+                with
+                    | :? CanopyReadOnlyException as ex -> reraise()
+                    | _ -> false)
+            |> List.exists (fun elem -> elem = true)
+        )
 
 let private textOf (element : IWebElement) =
     match element.TagName  with