From cfe3fa17526c290c29dfb8f2b8873577bf7d1792 Mon Sep 17 00:00:00 2001
From: Kai <kai.ito@gmail.com>
Date: Tue, 5 Nov 2019 02:40:02 +0100
Subject: [PATCH] Strongly type runFor instead of boxing (#486)

---
 src/canopy/runner.fs | 25 +++++++++++--------------
 src/canopy/types.fs  |  6 +++++-
 2 files changed, 16 insertions(+), 15 deletions(-)

diff --git a/src/canopy/runner.fs b/src/canopy/runner.fs
index 4fc1931c..9e1ef8c0 100644
--- a/src/canopy/runner.fs
+++ b/src/canopy/runner.fs
@@ -166,12 +166,12 @@ let private runtest (suite : suite) (test : Test) =
 
               match testResult with
               | Skip -> Skip
-              | _ -> 
+              | _ ->
                 let afterResult = tryTest test suite (suite.After)
                 match testResult with
                 | Failed -> testResult
                 | _ -> afterResult
-                        
+
         failureMessage <- null
         result
     else
@@ -238,35 +238,32 @@ let run () =
     reporter.suiteEnd()
 
 (* documented/testing *)
-let runFor browsers =
+let runFor (browsers: Browsers) =
     // suites are in reverse order and have to be reversed before running the tests
     let currentSuites = suites
-    
-    match box browsers with
-        | :? (canopy.types.BrowserStartMode list) as browsers ->
+
+    match browsers with
+        | BrowserStartModes browsers ->
             let newSuites =
               browsers
               |> List.rev
-              |> List.map (fun browser ->
+              |> List.collect (fun browser ->
                   let suite = new suite()
                   suite.Context <- sprintf "Running tests with %s browser" (toString browser)
-                  suite.Once <- fun _ -> start browser                                
+                  suite.Once <- fun _ -> start browser
                   let currentSuites2 = currentSuites |> List.map(fun suite -> suite.Clone())
                   currentSuites2 |> List.iter (fun suite -> suite.Context <- sprintf "(%s) %s" (toString browser) suite.Context)
                   currentSuites2 @ [suite])
-              |> List.concat
             suites <- newSuites
-        | :? (IWebDriver list) as browsers ->
+        | WebDrivers browsers ->
             let newSuites =
               browsers
               |> List.rev
-              |> List.map (fun browser ->
+              |> List.collect (fun browser ->
                   let suite = new suite()
-                  suite.Context <- sprintf "Running tests with %s browser" (browser.ToString())                
+                  suite.Context <- sprintf "Running tests with %s browser" (browser.ToString())
                   suite.Once <- fun _ -> switchTo browser
                   let currentSuites2 = currentSuites |> List.map(fun suite -> suite.Clone())
                   currentSuites2 |> List.iter (fun suite -> suite.Context <- sprintf "(%s) %s" (browser.ToString()) suite.Context)
                   currentSuites2 @ [suite])
-              |> List.concat
             suites <- newSuites
-        | _ -> raise <| Exception "I dont know what you have given me"
diff --git a/src/canopy/types.fs b/src/canopy/types.fs
index 0af9373f..d9f65c5f 100644
--- a/src/canopy/types.fs
+++ b/src/canopy/types.fs
@@ -111,4 +111,8 @@ type IReporter =
    abstract member quit : unit -> unit
    abstract member suiteBegin : unit -> unit
    abstract member suiteEnd : unit -> unit
-   abstract member setEnvironment : string -> unit
\ No newline at end of file
+   abstract member setEnvironment : string -> unit
+
+type Browsers =
+| BrowserStartModes of BrowserStartMode list
+| WebDrivers of IWebDriver list