Non-function input to play with the code
authorJoachim Breitner <mail@joachim-breitner.de>
Sat, 28 Aug 2010 17:34:59 +0000 (17:34 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Sat, 28 Aug 2010 17:34:59 +0000 (17:34 +0000)
b18n-combined-cgi.hs

index 15fb483..4f94e8b 100644 (file)
@@ -115,7 +115,25 @@ page (PageInfo {..}) =
                             )
 
                         )
-               )
+               ) +++
+                maindiv ! [ identifier "playwithit" ] << ( htmlMB generatedModuleMB $ \_ ->
+                    table << (
+                        tr << (td << "Source:"         +++
+                               td << input ! [name "source", value "[?]"] +++
+                               td << submit "updView" "Run \"get source\""
+                            ) +++ 
+                        tr << (td << "View:"           +++
+                               td << input ! [readOnly, value "[?]"]
+                            ) +++ 
+                        tr << (td << "Updated view:"   +++
+                               td << input ! [name "view", value "[?]"] +++
+                               td << submit "updView" "Run \"put source view\""
+                            ) +++ 
+                        tr << (td << "Updated source:" +++
+                               td << input ! [readOnly, value "[?]"]
+                            )
+                    )
+                )
        ) +++
         maindiv << (
                p << (