Mercurial > urweb
diff tests/toString.ur @ 290:df00701f2323
'read' type class
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 07 Sep 2008 11:53:30 -0400 |
parents | e89076c41c39 |
children |
line wrap: on
line diff
--- a/tests/toString.ur Sun Sep 07 11:41:04 2008 -0400 +++ b/tests/toString.ur Sun Sep 07 11:53:30 2008 -0400 @@ -1,5 +1,6 @@ fun main () : transaction page = return <html><body> - 6 = {cdata (intToString 6)}<br/> - 12.34 = {cdata (floatToString 12.34)}<br/> - False = {cdata (boolToString False)}<br/> + 6 = {cdata (show _ 6)}<br/> + 12.34 = {cdata (show _ 12.34)}<br/> + Hi = {cdata (show _ "Hi")}<br/> + False = {cdata (show _ False)}<br/> </body></html>