From 13e1acb4d9330fa4d89ee7acdb4ce02fec964b47 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Thu, 30 Oct 2008 17:07:34 -0400 Subject: Remove _espec tag; add some tag fields --- lib/basis.urs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib/basis.urs') diff --git a/lib/basis.urs b/lib/basis.urs index 0e6b9988..a344b3ce 100644 --- a/lib/basis.urs +++ b/lib/basis.urs @@ -370,9 +370,9 @@ con formTag = fn (ty :: Type) (inner :: {Unit}) (attrs :: {Type}) => -> fn [[Form] ~ ctx] => nm :: Name -> unit -> tag attrs ([Form] ++ ctx) inner [] [nm = ty] -val textbox : formTag string [] [Value = string] -val password : formTag string [] [] -val textarea : formTag string [] [] +val textbox : formTag string [] [Value = string, Size = int] +val password : formTag string [] [Value = string, Size = int] +val textarea : formTag string [] [Rows = int, Cols = int] val checkbox : formTag bool [] [Checked = bool] -- cgit v1.2.3