diff lib/ur/basis.urs @ 739:4bb7e1c0550a

Only allow single-file upload per control
author Adam Chlipala <adamc@hcoop.net>
date Sat, 25 Apr 2009 14:35:49 -0400
parents d049d31a1966
children b302b6e35f93
line wrap: on
line diff
--- a/lib/ur/basis.urs	Sat Apr 25 14:04:38 2009 -0400
+++ b/lib/ur/basis.urs	Sat Apr 25 14:35:49 2009 -0400
@@ -518,11 +518,7 @@
 val fileName : file -> option string
 val fileData : file -> blob
 
-type files
-val numFiles : files -> int
-val fileNum : files -> int -> file
-
-val upload : formTag files [] [Value = string, Size = int]
+val upload : formTag file [] [Value = string, Size = int]
 
 con radio = [Body, Radio]
 val radio : formTag string radio []