Use a pre field for the generated code
authorJoachim Breitner <mail@joachim-breitner.de>
Sat, 4 Sep 2010 11:09:07 +0000 (11:09 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Sat, 4 Sep 2010 11:09:07 +0000 (11:09 +0000)
b18n-combined-cgi.hs

index f23a4b1..b79057a 100644 (file)
@@ -117,10 +117,7 @@ page (PageInfo {..}) =
                         ( htmlMB generatedModuleMB $ \ generatedModule -> 
                             {- maybe noHtml outputErrors errors +++ -}
                             p << ("Result:"+++ br +++
-                                textarea ! [name "gencode", cols "120"
-                                           , rows (show (1 + length (lines generatedModule)))
-                                           , readOnly
-                                           ] << generatedModule
+                                pre << generatedModule
 
                             )