view tests/fitem.ur @ 1505:8c851e5508a7

Tutorial: up to First-Class Polymorphism
author Adam Chlipala <adam@chlipala.net>
date Sun, 17 Jul 2011 11:00:04 -0400
parents e8d68fd8ed4b
children
line wrap: on
line source
table t : { A : int, B : string }
table u : { A : int, C : float }

val q : sql_query [] [T = [A = int, B = string], U = [C = option float]] [] =
    (SELECT t.A, t.B, u.C
     FROM {{sql_left_join (FROM t) (FROM u) (WHERE TRUE)}})