Mercurial > urweb
comparison src/marshalcheck.sml @ 737:d049d31a1966
Initial support for blobs and upload
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sat, 25 Apr 2009 13:59:11 -0400 |
parents | 09df0c85f306 |
children | 4bb7e1c0550a |
comparison
equal
deleted
inserted
replaced
736:796e42c93c48 | 737:d049d31a1966 |
---|---|
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", "unit"), | 61 ("Basis", "unit"), |
61 ("Basis", "option"), | 62 ("Basis", "option"), |
62 ("Basis", "bool")] | 63 ("Basis", "bool")] |
63 | 64 |
64 val clientToServer = PS.addList (PS.empty, clientToServer) | 65 val clientToServer = PS.addList (PS.empty, clientToServer) |