diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-12-18 10:56:31 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-12-18 10:56:31 -0500 |
| commit | c71de1db0cf31466bfc5fe7e96021e5d3cba6979 (patch) | |
| tree | 294baafc0fd3480fdce266c71f27090164d2114c /src/effectize.sml | |
| parent | f08b20b1ecc66389fc6a829cf3819b3b38b07c48 (diff) | |
postBody type
Diffstat (limited to 'src/effectize.sml')
| -rw-r--r-- | src/effectize.sml | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/effectize.sml b/src/effectize.sml index 7f148476..4601f301 100644 --- a/src/effectize.sml +++ b/src/effectize.sml @@ -168,6 +168,15 @@ fun effectize file = else ReadOnly), n, IM.inDomain (pushers, n)), #2 d), evs) + | DExport (Extern _, n, _) => + ((DExport (Extern (if IM.inDomain (writers, n) then + if IM.inDomain (readers, n) then + ReadCookieWrite + else + ReadWrite + else + ReadOnly), n, IM.inDomain (pushers, n)), #2 d), + evs) | _ => (d, evs) val (file, _) = ListUtil.foldlMap doDecl (IM.empty, IM.empty, IM.empty) file |