@@ -69,8 +69,8 @@ fileTo isMini get what jsFiles noscript outputDir rtLoc file = do
6969 Left err -> putStrLn $ "Error while compiling " ++ file ++ ":\n" ++ err
7070 Right ms ->
7171 let path = case outputDir of
72− Nothing -> reverse . tail . dropWhile (/='.') $ reverse file
73− Just dir -> (\s -> dir ++ "/" ++ s) . reverse . takeWhile (/='/') . tail . dropWhile (/='.') $ reverse file
72+ Nothing -> reverse . tail . dropWhile (/='.') $ reverse file
73+ Just dir -> (\s -> dir ++ "/" ++ s) . reverse . takeWhile (/='/') . tail . dropWhile (/='.') $ reverse file
7474 js = path ++ ".js"
7575 html = path ++ ".html"
7676 in case what of