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 | 3fbffffb0b03b980de3ae2e579fc41c3723a5b46 (patch) | |
| tree | d3c882ae31c045044de6538db6dc9e13cf347f66 /src/export.sml | |
| parent | 7b68961399bb9e1576e1355c084bb2a95853c03a (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 ")"] |