@@ -26,7 +26,7 @@ produceHtml libLoc file = do
26 case compile code of
26 case compile code of
27 Left err -> putStrLn err
27 Left err -> putStrLn err
28 Right jsCode -> writeFile (name ++ ".html") . renderHtml $
28 Right jsCode -> writeFile (name ++ ".html") . renderHtml $
29− generateHtml libLoc name jsCode
29+ generateHtml libLoc name code
31usageMini :: String
31usageMini :: String
32usageMini =
32usageMini =