diff options
| author |  Ziv Scully <ziv@mit.edu> | 2015-09-27 17:02:14 -0400 |
|---|---|---|
| committer | Ziv Scully <ziv@mit.edu> | 2015-09-27 17:02:14 -0400 |
| commit | 150e1a3cdc0cfae2f583f7d0185b90d5ee82a018 (patch) | |
| tree | cd98fd11ba674f1f8492ac5e195d5bfe79260747 /src/lru_cache.sml | |
| parent | 067c8cd3b908eb057f6721453a5c3801965d43b8 (diff) | |
Fix bug where pure caching didn't treat FFI applications as effectful.
Diffstat (limited to 'src/lru_cache.sml')
| -rw-r--r-- | src/lru_cache.sml | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/lru_cache.sml b/src/lru_cache.sml index 0030777f..b8dfde5e 100644 --- a/src/lru_cache.sml +++ b/src/lru_cache.sml @@ -13,7 +13,13 @@ val optionStringTyp = (TOption stringTyp, dummyLoc) fun withTyp typ = map (fn exp => (exp, typ)) fun ffiAppCache' (func, index, argTyps) = - EFfiApp ("Sqlcache", func ^ Int.toString index, argTyps) + let + val m = "Sqlcache" + val f = func ^ Int.toString index + in + Settings.addEffectful (m, f); + EFfiApp (m, f, argTyps) + end fun check (index, keys) = ffiAppCache' ("check", index, withTyp stringTyp keys) |