comparison 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
comparison
equal deleted inserted replaced
738:7fa4871e8272 739:4bb7e1c0550a
516 516
517 type file 517 type file
518 val fileName : file -> option string 518 val fileName : file -> option string
519 val fileData : file -> blob 519 val fileData : file -> blob
520 520
521 type files 521 val upload : formTag file [] [Value = string, Size = int]
522 val numFiles : files -> int
523 val fileNum : files -> int -> file
524
525 val upload : formTag files [] [Value = string, Size = int]
526 522
527 con radio = [Body, Radio] 523 con radio = [Body, Radio]
528 val radio : formTag string radio [] 524 val radio : formTag string radio []
529 val radioOption : unit -> tag [Value = string] radio [] [] [] 525 val radioOption : unit -> tag [Value = string] radio [] [] []
530 526