Mercurial > urweb

diff demo/crud.urs @ 622:d64533157f40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Debug reverse-engineering unification
author Adam Chlipala <adamc@hcoop.net>
date Sat, 21 Feb 2009 16:11:56 -0500
parents 0767d7ad0c3a
children 6c4643880df5
line wrap: on
line diff
--- a/demo/crud.urs	Sat Feb 21 15:33:20 2009 -0500
+++ b/demo/crud.urs	Sat Feb 21 16:11:56 2009 -0500
@@ -6,7 +6,7 @@
                                     -> xml form [] [nm = t_formT.2],
                   Parse : t_formT.2 -> t_formT.1,
                   Inject : sql_injectable t_formT.1}
-con colsMeta = fn cols :: {(Type * Type)} => $(mapT2T colMeta cols)
+con colsMeta = fn cols :: {(Type * Type)} => $(map colMeta cols)
 
 val int : string -> colMeta (int, string)
 val float : string -> colMeta (float, string)
@@ -16,7 +16,7 @@
 functor Make(M : sig
                  con cols :: {(Type * Type)}
                  constraint [Id] ~ cols
-                 val tab : sql_table ([Id = int] ++ mapT2T fstTT cols)
+                 val tab : sql_table ([Id = int] ++ map fstTT cols)
 
                  val title : string