Fix getPresentationFromMarkdownLines

fsprojects · Mar 12, 2015 · a297342 · a297342
1 parent 9f02a90
commit a297342
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/src/FsReveal/FsReveal.fs b/src/FsReveal/FsReveal.fs
@@ -36,14 +36,12 @@ type FsReveal private() =
 
     static let getPresentationFromScriptLines fsxFile fsiEvaluator lines = 
         let fsx = Formatting.preprocessing lines
-        let fsi = match fsiEvaluator with None -> FsiEvaluator() :> IFsiEvaluator | Some fsi -> fsi
-        Literate.ParseScriptString(fsx, ?path=Option.map Path.GetFullPath fsxFile, fsiEvaluator = fsi) 
+        Literate.ParseScriptString(fsx, ?path=Option.map Path.GetFullPath fsxFile, ?fsiEvaluator = fsiEvaluator)
         |> getPresentation
 
     static let getPresentationFromMarkdownLines mdFile fsiEvaluator lines = 
         let md = Formatting.preprocessing lines
-        let fsi = match fsiEvaluator with None -> FsiEvaluator() :> IFsiEvaluator | Some fsi -> fsi
-        Literate.ParseMarkdownString(md, ?path=Option.map Path.GetFullPath mdFile, fsiEvaluator = fsi) 
+        Literate.ParseMarkdownString(md, ?path=Option.map Path.GetFullPath mdFile, ?fsiEvaluator = fsiEvaluator) 
         |> getPresentation
 
     static let checkIfFileExistsAndRun file f =