Mercurial > urweb

diff src/sqlcache.sml @ 2251:25874084bf1f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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