[Show astErrors in Output
Joachim Breitner <mail@joachim-breitner.de>**20100913201617
 Ignore-this: 58f0b3bfa9dc9980f2f5c80f10b32036
] hunk ./b18n-combined-cgi.hs 36
-    , parseError :: Maybe String
+    , astError :: Maybe String
hunk ./b18n-combined-cgi.hs 110
-                ( htmlMB parseError $ \err -> 
+                ( htmlMB astError $ \err -> 
hunk ./b18n-combined-cgi.hs 112
-                        "Can not parse your definition:" +++ br +++
-                        pre << show err +++ br +++
+                        "There was an error with the view function:" +++ br +++
+                        pre << err +++ br +++
hunk ./b18n-combined-cgi.hs 319
-        let parseError = either (Just . show) (const Nothing) eAST
+        let astError = either (Just . show) checkBidirectionalizability eAST
hunk ./b18n-combined-cgi.hs 370
-                     parseError
+                     astError