Create CSS dir fi it doesn't exist. relates to #76

fsprojects · Jun 14, 2015 · 3aff987 · 3aff987
1 parent b18d878
commit 3aff987
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/RELEASE_NOTES.md b/RELEASE_NOTES.md
@@ -1,4 +1,4 @@
-### 0.10.3 - 14.06.2015
+### 0.10.4 - 14.06.2015
 * Do not double-format already highlighted code
 
 ### 0.10.1 - 11.06.2015

diff --git a/src/FsReveal/FsReveal.fs b/src/FsReveal/FsReveal.fs
@@ -35,7 +35,12 @@ type FsReveal private() =
         let output = Formatting.GenerateHTML template presentation
         File.WriteAllText(outDir @@ outFile, output)
         printfn "Copy fsreveal.css style from %s to %s" FsRevealHelper.StyleFile (outDir @@ "css")
-        File.Copy(FsRevealHelper.StyleFile, (outDir @@ "css" @@ "fsreveal.css"), true)
+        let cssDir = outDir @@ "css" 
+        if Directory.Exists cssDir |> not then 
+            Directory.CreateDirectory cssDir |> ignore
+            printfn "Creating %s.." cssDir
+
+        File.Copy(FsRevealHelper.StyleFile, cssDir @@ "fsreveal.css", true)
 
     static let getPresentationFromScriptLines fsxFile fsiEvaluator lines = 
         let fsx = Formatting.preprocessing lines