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/corify.sml | |
| parent | 106d1b7275e44cf419665e92b2682e009b51f095 (diff) | |
Start SQL transactions as read-only when possible, based on conservative program analysis
Diffstat (limited to 'src/corify.sml')
| -rw-r--r-- | src/corify.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/corify.sml b/src/corify.sml index c06d62ca..c1c60045 100644 --- a/src/corify.sml +++ b/src/corify.sml @@ -1046,7 +1046,7 @@ fun corifyDecl mods (all as (d, loc : EM.span), st) = | _ => false) args then L'.Extern L'.ReadCookieWrite else - L'.Link + L'.Link L'.ReadCookieWrite in ((L.DVal ("wrap_" ^ s, 0, tf, e), loc) :: wds, (fn st => |