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