From a94bf24dfc7ce9c2496fccaa9cf370efe45615bc Mon Sep 17 00:00:00 2001
From: lefthandedgoat <lefthandedgoat@gmail.com>
Date: Wed, 4 Sep 2013 20:16:38 -0500
Subject: [PATCH] small tweaks on pull request #103

---
 basictests/Program.fs | 5 +++--
 canopy/reporters.fs   | 6 +++---
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/basictests/Program.fs b/basictests/Program.fs
index c0e3f582..11de07fe 100644
--- a/basictests/Program.fs
+++ b/basictests/Program.fs
@@ -408,7 +408,8 @@ context "dragging"
     click ".plus-button a img"
     "#task_title" << "Demo"
     click "#task_editor_buttons .save_button"
-    ".handle" --> ".inprogress")
+    ".handle" --> ".inprogress"
+    click "Blog")
 
 if not (browser :? OpenQA.Selenium.PhantomJS.PhantomJSDriver) then
     context "alert tests"
@@ -469,4 +470,4 @@ coverage testpage
 coverage()
 coverage "http://scrumy.com/silenter39delayed"
 
-//quit mainBrowser
+quit()
diff --git a/canopy/reporters.fs b/canopy/reporters.fs
index 4c0f4f41..36a5e402 100644
--- a/canopy/reporters.fs
+++ b/canopy/reporters.fs
@@ -209,10 +209,10 @@ type LiveHtmlReporter() =
 
         member this.quit () = 
           match this.reportPath with
-            | Some(string) ->
-              let reportFileInfo = new IO.FileInfo(this.reportPath.Value)
+            | Some(path) ->
+              let reportFileInfo = new IO.FileInfo(path)
               this.saveReportHtml reportFileInfo.Directory.FullName reportFileInfo.Name
-            | None -> Console.WriteLine("Not saving report")
+            | None -> consoleReporter.write "Not saving report"
 
           if canQuit then _browser.Quit()