Cruft removal
authorJoachim Breitner <mail@joachim-breitner.de>
Thu, 16 Sep 2010 14:21:34 +0000 (14:21 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Thu, 16 Sep 2010 14:21:34 +0000 (14:21 +0000)
b18n-combined-cgi.hs

index 081a3bf..7d994a8 100644 (file)
@@ -364,8 +364,7 @@ formMain = do
         showCode <- maybe False read <$> getInput "showCode"
 
         pcM <- getInput "playCode" 
-        -- Playcode can only by used when the output is exMode
-        (playCode, playErrorM) <- -- if outMode /= HaskellCode then return (Nothing, Nothing) else
+        (playCode, playErrorM) <-
             case (todo,getM,genCodeM,pcM) of
             -- The user successfully generated code to play with, insert default playCode.
             -- Do not use the user input, as he probably switched to a new example.