[Show parseErrors
Joachim Breitner <mail@joachim-breitner.de>**20100828165859
 Ignore-this: b198eb12fcae3d685233766de0d3d28f
] hunk ./Type.hs 269
+
hunk ./b18n-combined-cgi.hs 11
+import Text.ParserCombinators.Parsec (ParseError)
+
hunk ./b18n-combined-cgi.hs 18
+import AST
hunk ./b18n-combined-cgi.hs 26
+    , parseError :: Maybe String
hunk ./b18n-combined-cgi.hs 80
-		{- p << astInfo mbAST +++ -}
+                ( htmlMB parseError $ \err -> 
+                     maindiv << p << (
+                        "Can not parse your definition:" +++ br +++
+                        pre << show err +++ br +++
+                        mkSubmit True Check)
+                ) +++
+		-- p << astInfo mbAST +++
hunk ./b18n-combined-cgi.hs 251
+        let parseError = either (Just . show) (const Nothing) mbAST
+
hunk ./b18n-combined-cgi.hs 264
-        outputFPS $ fromString $ showHtml $ page (PageInfo scrollX scrollY code exMode outMode showTypes genCode)
+        outputFPS $ fromString $ showHtml $ page (PageInfo scrollX scrollY code parseError exMode outMode showTypes genCode)