Make sure that all directories in build/ are properly constructed
This commit is contained in:
parent
f7db7a3b47
commit
cc81b1e22b
1 changed files with 3 additions and 1 deletions
|
@ -189,7 +189,9 @@ build flags rootFile = do
|
||||||
putStr "Generating HTML ... "
|
putStr "Generating HTML ... "
|
||||||
runtime <- getRuntime flags
|
runtime <- getRuntime flags
|
||||||
let html = genHtml $ createHtml runtime (takeBaseName rootFile) (sources js) moduleName ""
|
let html = genHtml $ createHtml runtime (takeBaseName rootFile) (sources js) moduleName ""
|
||||||
writeFile (buildPath flags rootFile "html") html
|
htmlFile = buildPath flags rootFile "html"
|
||||||
|
createDirectoryIfMissing True (takeDirectory htmlFile)
|
||||||
|
writeFile htmlFile html
|
||||||
putStrLn "Done"
|
putStrLn "Done"
|
||||||
|
|
||||||
where
|
where
|
||||||
|
|
Loading…
Reference in a new issue