Fix #387 even better

lefthandedgoat · Oct 11, 2017 · f345cab · f345cab
1 parent 0a3bc9e
commit f345cab
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/canopy/history.fs b/src/canopy/history.fs
@@ -7,9 +7,10 @@ let p = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) + @
 let path = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) + @"\canopy\failedContexts.txt"
 
 let save (results : string list) =
-    if Directory.Exists(p) = false then Directory.CreateDirectory(p) |> ignore
-    use sw = new StreamWriter(path)
-    sw.Write (String.concat "|" results)
+    if configuration.runFailedContextsFirst = true then
+        if Directory.Exists(p) = false then Directory.CreateDirectory(p) |> ignore
+        use sw = new StreamWriter(path)
+        sw.Write (String.concat "|" results)
 
 let get _ =    
     if File.Exists(path) = false then