diff options
author | Adam Chlipala <adam@chlipala.net> | 2013-12-12 17:42:48 -0500 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2013-12-12 17:42:48 -0500 |
commit | a24c2bdaf85c3d4eef19783e95b11d1cf15add09 (patch) | |
tree | d3c882ae31c045044de6538db6dc9e13cf347f66 /src/export.sml | |
parent | 106d1b7275e44cf419665e92b2682e009b51f095 (diff) |
Start SQL transactions as read-only when possible, based on conservative program analysis
Diffstat (limited to 'src/export.sml')
-rw-r--r-- | src/export.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/export.sml b/src/export.sml index 5d200894..a99d0b70 100644 --- a/src/export.sml +++ b/src/export.sml @@ -36,7 +36,7 @@ datatype effect = | ReadWrite datatype export_kind = - Link + Link of effect | Action of effect | Rpc of effect | Extern of effect @@ -49,7 +49,7 @@ fun p_effect ef = fun p_export_kind ck = case ck of - Link => string "link" + Link ef => box [string "link(", p_effect ef, string ")"] | Action ef => box [string "action(", p_effect ef, string ")"] | Rpc ef => box [string "rpc(", p_effect ef, string ")"] | Extern ef => box [string "extern(", p_effect ef, string ")"] |