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)