Better names for files when no name is given
commit520c81f9d40574337c7fe6160a75ab7e310c0146
authorEvan Czaplicki <info@elm-lang.org>
dateFri 2 Aug 2013, 15:01 (13 years ago)
parent78c6db6
compiler/Compiler.hs+1−1
@@ -165,7 +165,7 @@ build flags rootFile = do
165165 False -> do
166166 putStr "Generating HTML ... "
167167 runtime <- getRuntime flags
168− let html = genHtml $ createHtml runtime rootFile (sources js) ""
168+ let html = genHtml $ createHtml runtime (takeBaseName rootFile) (sources js) ""
169169 writeFile (file flags rootFile "html") html
170170 putStrLn "Done"
171171