From 68879bbb4bf58e4709c96ba6904071ce5d24a906 Mon Sep 17 00:00:00 2001
From: Ziv Scully <ziv@mit.edu>
Date: Sun, 13 Sep 2015 17:02:17 -0400
Subject: Make Mono.file a record for readability upon extension.

---
 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 8efe999c..40081351 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, _) =
+fun effectfulDecls ({decls, ...} : file) =
     let
         fun doVal ((_, name, _, e, _), effs) =
             if effectful effs MonoEnv.empty e
-- 
cgit v1.2.3