diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-04-23 14:10:10 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-23 14:10:10 -0400 |
| commit | 5ef3495dd44b076f46f4fdba4a021ea362116677 (patch) | |
| tree | 5f9043f30674edd2b558719bbd85211d45b02297 /src/export.sml | |
| parent | 777ba279e76f6d30de4d64948930ae0d0d17833c (diff) | |
Only use cookie signatures when cookies might be read
Diffstat (limited to 'src/export.sml')
| -rw-r--r-- | src/export.sml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/export.sml b/src/export.sml index 8e3e3331..ad604e16 100644 --- a/src/export.sml +++ b/src/export.sml @@ -25,13 +25,14 @@ * POSSIBILITY OF SUCH DAMAGE. *) -structure Export = struct +structure Export :> EXPORT = struct open Print.PD open Print datatype effect = ReadOnly + | ReadCookieWrite | ReadWrite datatype export_kind = @@ -42,6 +43,7 @@ datatype export_kind = fun p_effect ef = case ef of ReadOnly => string "r" + | ReadCookieWrite => string "rcw" | ReadWrite => string "rw" fun p_export_kind ck = |