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/corify.sml | |
parent | 7b68961399bb9e1576e1355c084bb2a95853c03a (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 => |