comparison src/marshalcheck.sml @ 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 8323c1beef2e
comparison
equal deleted inserted replaced
738:7fa4871e8272 739:4bb7e1c0550a
55 55
56 val clientToServer = [("Basis", "int"), 56 val clientToServer = [("Basis", "int"),
57 ("Basis", "float"), 57 ("Basis", "float"),
58 ("Basis", "string"), 58 ("Basis", "string"),
59 ("Basis", "time"), 59 ("Basis", "time"),
60 ("Basis", "files"), 60 ("Basis", "file"),
61 ("Basis", "unit"), 61 ("Basis", "unit"),
62 ("Basis", "option"), 62 ("Basis", "option"),
63 ("Basis", "bool")] 63 ("Basis", "bool")]
64 64
65 val clientToServer = PS.addList (PS.empty, clientToServer) 65 val clientToServer = PS.addList (PS.empty, clientToServer)