Factor out readOnly
authorJoachim Breitner <mail@joachim-breitner.de>
Sat, 28 Aug 2010 17:34:35 +0000 (17:34 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Sat, 28 Aug 2010 17:34:35 +0000 (17:34 +0000)
b18n-combined-cgi.hs

index d69803c..15fb483 100644 (file)
@@ -109,9 +109,11 @@ page (PageInfo {..}) =
                             p << ("Result:"+++ br +++
                                 textarea ! [name "gencode", cols "120"
                                            , rows (show (1 + length (lines generatedModule)))
+                                           , readOnly
                                            ] << generatedModule
 
                             )
+
                         )
                )
        ) +++
@@ -322,3 +324,5 @@ jsCode = unlines
 
 htmlMB Nothing  f = noHtml
 htmlMB (Just x) f = f x
+
+readOnly = emptyAttr "readonly"