From 3e42cccfaef1157ca14cd102959b867c996503a9 Mon Sep 17 00:00:00 2001
From: Ziv Scully <ziv@mit.edu>
Date: Mon, 21 Sep 2015 10:16:55 -0400
Subject: Revert to revision 2222.

---
 src/sqlcache.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/sqlcache.sml')

diff --git a/src/sqlcache.sml b/src/sqlcache.sml
index 40081351..8efe999c 100644
--- a/src/sqlcache.sml
+++ b/src/sqlcache.sml
@@ -101,7 +101,7 @@ fun effectful (effs : IS.set) =
     end
 
 (* TODO: test this. *)
-fun effectfulDecls ({decls, ...} : file) =
+fun effectfulDecls (decls, _) =
     let
         fun doVal ((_, name, _, e, _), effs) =
             if effectful effs MonoEnv.empty e
-- 
cgit v1.2.3