Mercurial > urweb
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) |