Mercurial > urweb
annotate tests/view.ur @ 2044:42ae25a354f8
Retweak the last tweak to allow type inference to succeed in a strict superset of the places where it used to succeed
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Tue, 29 Jul 2014 14:46:06 -0400 |
| parents | 8688e01ae469 |
| children |
| rev | line source |
|---|---|
| adamc@754 | 1 table t : { A : int, B : string } |
| adamc@754 | 2 |
| adamc@754 | 3 view v = SELECT t.A AS X FROM t |
| adamc@754 | 4 |
| adamc@754 | 5 fun main () = |
| adamc@754 | 6 rows <- queryX (SELECT * FROM v) |
| adamc@754 | 7 (fn r => <xml><li>{[r.V.X]}</li></xml>); |
| adamc@754 | 8 return <xml><body> |
| adamc@754 | 9 {rows} |
| adamc@754 | 10 </body></xml> |