Only show playing code when output is HaskellCode
authorJoachim Breitner <mail@joachim-breitner.de>
Sat, 4 Sep 2010 11:08:14 +0000 (11:08 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Sat, 4 Sep 2010 11:08:14 +0000 (11:08 +0000)
b18n-combined-cgi.hs

index baae99a..f23a4b1 100644 (file)
@@ -301,7 +301,9 @@ formMain = do
                 _ -> (Nothing, Nothing)
 
         pcM <- getInput "playCode" 
-        (playCode, playErrorM) <- case (todo,getM,genCodeM,pcM) of
+        -- Playcode can only by used when the output is exMode
+        (playCode, playErrorM) <- if outMode /= HaskellCode then return (Nothing, Nothing) else
+            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.
             (Just BiDi, Just get, Just _, _) -> return (defaultPlayCode get, Nothing)