comparison demo/crud.urs @ 706:1fb318c17546

Enhance table sig item support and get demo compiling again
author Adam Chlipala <adamc@hcoop.net>
date Tue, 07 Apr 2009 15:04:07 -0400
parents 24fd1edfcaa3
children bb3fc575cfe7
comparison
equal deleted inserted replaced
705:e6706a1df013 706:1fb318c17546
16 functor Make(M : sig 16 functor Make(M : sig
17 con cols :: {(Type * Type)} 17 con cols :: {(Type * Type)}
18 constraint [Id] ~ cols 18 constraint [Id] ~ cols
19 val fl : folder cols 19 val fl : folder cols
20 20
21 val tab : sql_table ([Id = int] ++ map fst cols) 21 table tab : ([Id = int] ++ map fst cols)
22 22
23 val title : string 23 val title : string
24 24
25 val cols : colsMeta cols 25 val cols : colsMeta cols
26 end) : sig 26 end) : sig