[Make get/put configurable
Joachim Breitner <mail@joachim-breitner.de>**20100904110333
 Ignore-this: 7ce6c75f239ec5a015f1dd863bcdf8a
] hunk ./b18n-combined-cgi.hs 261
-defaultPlayCode = -- Are we only considering [Nat] here?
-        Just "source = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10]"
+defaultPlayCode get = -- Are we only considering [Nat] here?
+        Just $ unlines
+            [ "get = " ++ get
+            , "put = " ++ get ++ "_B" 
+            , ""
+            , "source = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10]"
+            ]
hunk ./b18n-combined-cgi.hs 307
-            (Just BiDi, _, Just _, _) -> return (defaultPlayCode, Nothing)
+            (Just BiDi, Just get, Just _, _) -> return (defaultPlayCode get, Nothing)
hunk ./b18n-combined-cgi.hs 310
-                view <- liftIO $ evaluateWith genCode pc (get ++ " source")
+                view <- liftIO $ evaluateWith genCode pc ("get source")
hunk ./b18n-combined-cgi.hs 317
-            (Just EvalGet, _, Just genCode, Nothing) -> do
-                return (defaultPlayCode, Nothing)
+            (Just EvalGet, Just get, Just genCode, Nothing) -> do
+                return (defaultPlayCode get, Nothing)
hunk ./b18n-combined-cgi.hs 320
-                view <- liftIO $ evaluateWith genCode pc (get ++ "_B source view")
+                view <- liftIO $ evaluateWith genCode pc ("put source view")
hunk ./b18n-combined-cgi.hs 326
-            (Just EvalPut, _, Just _, Nothing) -> do
-                return (defaultPlayCode, Nothing)
+            (Just EvalPut, Just get, Just _, Nothing) -> do
+                return (defaultPlayCode get, Nothing)