@@ -189,7 +189,9 @@ build flags rootFile = do
189 putStr "Generating HTML ... "
189 putStr "Generating HTML ... "
190 runtime <- getRuntime flags
190 runtime <- getRuntime flags
191 let html = genHtml $ createHtml runtime (takeBaseName rootFile) (sources js) moduleName ""
191 let html = genHtml $ createHtml runtime (takeBaseName rootFile) (sources js) moduleName ""
192− writeFile (buildPath flags rootFile "html") html
192+ htmlFile = buildPath flags rootFile "html"
193+ createDirectoryIfMissing True (takeDirectory htmlFile)
194+ writeFile htmlFile html
193 putStrLn "Done"
195 putStrLn "Done"