Refactor in defaultPlayCode
authorJoachim Breitner <mail@joachim-breitner.de>
Wed, 15 Sep 2010 13:41:11 +0000 (13:41 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Wed, 15 Sep 2010 13:41:11 +0000 (13:41 +0000)
b18n-combined-cgi.hs

index 2633940..2baf0d6 100644 (file)
@@ -283,13 +283,12 @@ defaultPlayCode (Config{..}) get =
             , ""
             , "source = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10]"
             ]
-    where put | b18nMode == SyntacticB18n =
-                    get ++ "_140_B s v"
-              | b18nMode == SemanticB18n =
-                    get ++ "_B s v"
-              | b18nMode == CombinedB18n =
-                    "fromMaybe (error \"Could not handle shape change.\") $ " ++
-                    get ++ "_Bbd rear 42 s v"
+    where put = case b18nMode of
+            SyntacticB18n -> get ++ "_140_B s v"
+            SemanticB18n -> get ++ "_B s v"
+            CombinedB18n ->
+                "fromMaybe (error \"Could not handle shape change.\") $ " ++
+                 get ++ "_Bbd rear 42 s v"
 
 formMain = do
         setHeader "Content-type" "application/xhtml+xml; charset=UTF-8"