TMP: Turn off inliner since it breaks JS backend
commit92b02cccf0091789bf89fc5e7ddefe0e55bb5bc8
authorEdwin Brady <ecb10@st-andrews.ac.uk>
dateWed 20 Aug 2014, 11:03 (12 years ago)
parente30ff97
src/IRTS/LangOpts.hs+1
@@ -24,6 +24,7 @@ nextN = do i <- get
2424-- Need to preserve uniqueness of variable names in the resulting definition,
2525-- so invent a new name for every variable we encounter
2626doInline :: LDefs -> LDecl -> LDecl
27+doInline defs d = d
2728doInline defs d@(LConstructor _ _ _) = d
2829doInline defs (LFun opts topn args exp)
2930 = let res = evalState (inlineWith [topn] (map (\n -> (n, LV (Glob n))) args) exp) 0 in