Use renderCode
authorJoachim Breitner <mail@joachim-breitner.de>
Wed, 15 Sep 2010 13:42:06 +0000 (13:42 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Wed, 15 Sep 2010 13:42:06 +0000 (13:42 +0000)
b18n-combined-cgi.hs

index 2baf0d6..4d3565f 100644 (file)
@@ -320,8 +320,7 @@ formMain = do
         let (genCodeM,getM) = case (todo,eAST) of
                 (Just Load, _) -> (Nothing, Nothing)
                 (Just _, Right ast) ->
-                    (  Just $ render $
-                       outputCode conf True  ast (introNat $ shapify $ typeInference ast)
+                    (  Just $ render $ renderCode conf ast
                     ,  firstDeclaredName ast
                     )
                 _ -> (Nothing, Nothing)