Always hide code
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 10 Sep 2010 14:55:57 +0000 (14:55 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 10 Sep 2010 14:55:57 +0000 (14:55 +0000)
b18n-combined-cgi.hs

index 224305d..05a4434 100644 (file)
@@ -323,11 +323,7 @@ formMain = do
                     )
                 _ -> (Nothing, Nothing)
 
-        showCode <- case (todo) of
-         --   (Just BiDi) -> return False
-            (Just BiDi)           -> return True
-         --  (_        ) -> maybe False read <$> getInput "showCode"
-            (_        )           -> maybe True read <$> getInput "showCode"
+        showCode <- maybe False read <$> getInput "showCode"
 
         pcM <- getInput "playCode" 
         -- Playcode can only by used when the output is exMode