[Pass config as a whole to the page function
Joachim Breitner <mail@joachim-breitner.de>**20100910144838
 Ignore-this: 1a2590c71773b4051c5feb1f430cd20c
] hunk ./b18n-combined-cgi.hs 32
-    { scrollX :: Maybe String
+    { config :: Config
+    , scrollX :: Maybe String
hunk ./b18n-combined-cgi.hs 37
-    , exMode  :: ExecMode
-    , b18nMode_ :: B18nMode
-    , showTypes :: Bool
hunk ./b18n-combined-cgi.hs 104
-					! (guard (mode == exMode) >> return checked)
+					! (guard (mode == execMode config) >> return checked)
hunk ./b18n-combined-cgi.hs 110
-					! (guard (mode == b18nMode_) >> return checked)
+					! (guard (mode == b18nMode config) >> return checked)
hunk ./b18n-combined-cgi.hs 114
-                                        ! (guard showTypes >> return checked)
+                                        ! (guard (isShowType config) >> return checked)
hunk ./b18n-combined-cgi.hs 274
-        exMode  <- maybe Normal read <$> getInput "execMode"
-        b18nMode_ <- maybe CombinedB18n read <$> getInput "b18nMode"
-        showTypes <- isJust <$> getInput "showTypes"
+        conf <- do
+            execMode'  <- maybe Normal read <$> getInput "execMode"
+            b18nMode' <- maybe CombinedB18n read <$> getInput "b18nMode"
+            isShowType' <- isJust <$> getInput "showTypes"
+            return $ defaultConfig
+                { isHaskellify = True
+                , b18nMode = b18nMode'
+                , execMode = execMode'
+                , isShowType = isShowType'
+                }
hunk ./b18n-combined-cgi.hs 298
-        let conf = defaultConfig
-             { isHaskellify = True, b18nMode = b18nMode_, execMode = exMode, isShowType = showTypes }
hunk ./b18n-combined-cgi.hs 304
-                    (  Just $ render $ case exMode of 
+                    (  Just $ render $ case execMode conf of 
hunk ./b18n-combined-cgi.hs 351
-            PageInfo scrollX
+            PageInfo conf
+                     scrollX
hunk ./b18n-combined-cgi.hs 356
-                     exMode
-                     b18nMode_
-                     showTypes