Mercurial > urweb
diff src/rpcify.sml @ 731:e0dd85ea58e1
Label exported symbols by effect-ness; factor out some common datatypes
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 16 Apr 2009 14:49:25 -0400 |
parents | 9b29ce0babb8 |
children | a28982de5645 |
line wrap: on
line diff
--- a/src/rpcify.sml Thu Apr 16 14:35:01 2009 -0400 +++ b/src/rpcify.sml Thu Apr 16 14:49:25 2009 -0400 @@ -173,7 +173,7 @@ (#exported st, #export_decls st) else (IS.add (#exported st, n), - (DExport (Rpc, n), loc) :: #export_decls st) + (DExport (Rpc ReadWrite, n), loc) :: #export_decls st) val st = {cpsed = #cpsed st, cpsed_range = #cpsed_range st,