[Use b18nMode instead of outputMode in cgi script
Joachim Breitner <mail@joachim-breitner.de>**20100910144404
 Ignore-this: c967cdd88a377477c79a12ee3417d21d
] hunk ./b18n-combined-cgi.hs 37
-    , outMode :: OutputMode
+    , b18nMode_ :: B18nMode
hunk ./b18n-combined-cgi.hs 111
-			          radio "outputMode" (show mode) 
-					! (guard (mode == outMode) >> return checked)
+			          radio "b18nMode" (show mode) 
+					! (guard (mode == b18nMode_) >> return checked)
hunk ./b18n-combined-cgi.hs 114
-                                ) [PseudoCode, HaskellCode, ForwardCode]) +++ br +++
+                                ) [SyntacticB18n, SemanticB18n, CombinedB18n, NoB18n]) +++ br +++
hunk ./b18n-combined-cgi.hs 277
-        outMode <- maybe HaskellCode read <$> getInput "outputMode"
+        b18nMode_ <- maybe CombinedB18n read <$> getInput "b18nMode"
hunk ./b18n-combined-cgi.hs 293
-        let conf = defaultConfig { outputMode = outMode, execMode = exMode, isShowType = showTypes }
+        let conf = defaultConfig
+             { isHaskellify = True, b18nMode = b18nMode_, execMode = exMode, isShowType = showTypes }
+
hunk ./b18n-combined-cgi.hs 309
-        showCode <- case (todo,outMode) of
-            (Just BiDi, HaskellCode) -> return False
-            (Just BiDi, _)           -> return True
-            (_,         HaskellCode) -> maybe False read <$> getInput "showCode"
-            (_,         _)           -> maybe True read <$> getInput "showCode"
+        showCode <- case (todo) of
+         --   (Just BiDi) -> return False
+            (Just BiDi)           -> return True
+         --  (_        ) -> maybe False read <$> getInput "showCode"
+            (_        )           -> maybe True read <$> getInput "showCode"
hunk ./b18n-combined-cgi.hs 317
-        (playCode, playErrorM) <- if outMode /= HaskellCode then return (Nothing, Nothing) else
+        (playCode, playErrorM) <- -- if outMode /= HaskellCode then return (Nothing, Nothing) else
hunk ./b18n-combined-cgi.hs 353
-                     outMode
+                     b18nMode_