@@ -20,6 +20,7 @@ import Data.Maybe
2020import System.IO
2121import System.Directory
2222
23+
2324idrNamespace :: String
2425idrNamespace = "__IDR__"
2526idrRTNamespace = "__IDRRT__"
@@ -723,7 +724,7 @@ inlineFunctions js =
723724 inlineHelper ([], js)
724725 where
725726 inlineHelper :: ([JS], [JS]) -> [JS]
726− inlineHelper (front , (JSAlloc fun (Just (JSFunction args body))):back)
727+ inlineHelper (front , (JSAlloc fun (Just (JSFunction args body))):back)
727728 | countAll fun front + countAll fun back == 0 =
728729 inlineHelper (front, back)
729730 | Just new <- inlineAble (