Mercurial > urweb
diff src/sqlcache.sml @ 2251:25874084bf1f
Make Mono.file a record for readability upon extension.
author | Ziv Scully <ziv@mit.edu> |
---|---|
date | Sun, 13 Sep 2015 17:02:17 -0400 |
parents | c275bbc41194 |
children | e843a04499d4 |
line wrap: on
line diff
--- a/src/sqlcache.sml Sun Sep 13 16:02:45 2015 -0400 +++ b/src/sqlcache.sml Sun Sep 13 17:02:17 2015 -0400 @@ -101,7 +101,7 @@ end (* TODO: test this. *) -fun effectfulDecls (decls, _) = +fun effectfulDecls ({decls, ...} : file) = let fun doVal ((_, name, _, e, _), effs) = if effectful effs MonoEnv.empty e