diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-10-04 15:54:03 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-10-04 15:54:03 -0400 |
| commit | 820db2a3a1c185ea91d8a8f14a30a52489595e3f (patch) | |
| tree | 34129241fe804b98db1256b4d9ef9ba2ed1458ef /tests | |
| parent | 2eca16323e58b01a70ea734e2825765ebe239dc0 (diff) | |
Small clean-ups in crud; Compiler.check
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/crud.ur | 2 | ||||
| -rw-r--r-- | tests/crud.urs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tests/crud.ur b/tests/crud.ur index 7944cf6c..6479da19 100644 --- a/tests/crud.ur +++ b/tests/crud.ur @@ -80,7 +80,7 @@ fun confirm (id : int) = return <html><body> <p><a link={delete id}>I was born sure!</a></p> </body></html> -fun main () : transaction page = +fun main () = rows <- queryX (SELECT * FROM tab AS T) (fn (fs : {T : $([Id = int] ++ mapT2T fstTT M.cols)}) => <body> <tr> diff --git a/tests/crud.urs b/tests/crud.urs index 3056392c..8ef81b87 100644 --- a/tests/crud.urs +++ b/tests/crud.urs @@ -6,7 +6,7 @@ con colMeta = fn t_formT :: (Type * Type) => { Parse : t_formT.2 -> t_formT.1, Inject : sql_injectable t_formT.1 } -con colsMeta = fn cols :: {(Type * Type)} => $(Top.mapT2T colMeta cols) +con colsMeta = fn cols :: {(Type * Type)} => $(mapT2T colMeta cols) functor Make(M : sig con cols :: {(Type * Type)} |