@@ -165,7 +165,7 @@ build flags rootFile = do
165 False -> do
165 False -> do
166 putStr "Generating HTML ... "
166 putStr "Generating HTML ... "
167 runtime <- getRuntime flags
167 runtime <- getRuntime flags
168− let html = genHtml $ createHtml runtime rootFile (sources js) ""
168+ let html = genHtml $ createHtml runtime (takeBaseName rootFile) (sources js) ""
169 writeFile (file flags rootFile "html") html
169 writeFile (file flags rootFile "html") html
170 putStrLn "Done"
170 putStrLn "Done"