Make sure that all directories in build/ are properly constructed

This commit is contained in:
Evan Czaplicki 2013-08-06 22:51:21 -07:00
parent f7db7a3b47
commit cc81b1e22b

View file

@ -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