diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-04-07 15:04:07 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-07 15:04:07 -0400 |
| commit | e56ecefbc8cc0251d30511ec8c6cdc8dca25a263 (patch) | |
| tree | 24ba2b9bca09a5a9c9236d096b13998d77a97ab9 /tests | |
| parent | 1169e58b645a34751d97d9b54e977edd9359587d (diff) | |
Enhance table sig item support and get demo compiling again
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/crud.ur | 2 | ||||
| -rw-r--r-- | tests/crud.urs | 2 | ||||
| -rw-r--r-- | tests/table_sig.ur | 2 | ||||
| -rw-r--r-- | tests/table_sig.urp | 3 | ||||
| -rw-r--r-- | tests/table_sig.urs | 1 |
5 files changed, 8 insertions, 2 deletions
diff --git a/tests/crud.ur b/tests/crud.ur index 8aff038d..f085b44e 100644 --- a/tests/crud.ur +++ b/tests/crud.ur @@ -33,7 +33,7 @@ fun bool name = {Nam = name, functor Make(M : sig con cols :: {(Type * Type)} constraint [Id] ~ cols - val tab : sql_table ([Id = int] ++ mapT2T fstTT cols) + table tab : ([Id = int] ++ mapT2T fstTT cols) val title : string diff --git a/tests/crud.urs b/tests/crud.urs index 33090421..ffb1d3f1 100644 --- a/tests/crud.urs +++ b/tests/crud.urs @@ -16,7 +16,7 @@ val bool : string -> colMeta (bool, bool) functor Make(M : sig con cols :: {(Type * Type)} constraint [Id] ~ cols - val tab : sql_table ([Id = int] ++ mapT2T fstTT cols) + table tab : ([Id = int] ++ mapT2T fstTT cols) val title : string diff --git a/tests/table_sig.ur b/tests/table_sig.ur new file mode 100644 index 00000000..0603d755 --- /dev/null +++ b/tests/table_sig.ur @@ -0,0 +1,2 @@ +table t : { A : int } + diff --git a/tests/table_sig.urp b/tests/table_sig.urp new file mode 100644 index 00000000..6a161ed1 --- /dev/null +++ b/tests/table_sig.urp @@ -0,0 +1,3 @@ +debug + +table_sig diff --git a/tests/table_sig.urs b/tests/table_sig.urs new file mode 100644 index 00000000..40dde3c0 --- /dev/null +++ b/tests/table_sig.urs @@ -0,0 +1 @@ +table t : { A : int } |