[Do not show playCode if there was an astError
Joachim Breitner <mail@joachim-breitner.de>**20100916143000
 Ignore-this: 4676838b54eaf0a93b9719524aaf6025
] hunk ./b18n-combined-cgi.hs 135
-                     maindiv ! [ identifier "output" ]<< (
+                    maindiv ! [ identifier "output" ]<< (
hunk ./b18n-combined-cgi.hs 156
-                     )
-		) +++
-                ( htmlMB playCodeMB $ \playCode -> maindiv << ( 
-                    p << (  "You can now play with the code. You can modify the " +++
-                            tt << "source" +++ " and calculate the " +++
-                            tt << "view" +++ ", or modify the " +++
-                            tt << "view" +++ " and calculate an updated "+++
-                            tt << "source" +++ "." +++ br +++
-                            textarea ! [name "playCode", cols "120", rows "12" ] << playCode
hunk ./b18n-combined-cgi.hs 157
-                    p << ( "Evaluate " +++
-                           mkSubmit True EvalGet +++ " " +++
-                           mkSubmit True EvalPut
-                    )
-                )) +++
-                ( htmlMB playErrorM $ \playError -> maindiv << ( 
-                    p << (
-                        strong << "An error occurred while evaluating your code:" +++ br +++
-                        pre << playError
+                    ( htmlMB playCodeMB $ \playCode -> maindiv << ( 
+                        p << (  "You can now play with the code. You can modify the " +++
+                                tt << "source" +++ " and calculate the " +++
+                                tt << "view" +++ ", or modify the " +++
+                                tt << "view" +++ " and calculate an updated "+++
+                                tt << "source" +++ "." +++ br +++
+                                textarea ! [name "playCode", cols "120", rows "12" ] << playCode
+                        ) +++
+                        p << ( "Evaluate " +++
+                               mkSubmit True EvalGet +++ " " +++
+                               mkSubmit True EvalPut
hunk ./b18n-combined-cgi.hs 169
-                ))
+                    )) +++
+                    ( htmlMB playErrorM $ \playError -> maindiv << ( 
+                        p << (
+                            strong << "An error occurred while evaluating your code:" +++ br +++
+                            pre << playError
+                            )
+                    ))
+		)