From 1557ac806159fe58eaa442527f73e569dd04f88e Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 15 Feb 2009 10:32:50 -0500
Subject: First gimpy RPC

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

(limited to 'src/mono_shake.sml')

diff --git a/src/mono_shake.sml b/src/mono_shake.sml
index 34bd98be..4fd3caeb 100644
--- a/src/mono_shake.sml
+++ b/src/mono_shake.sml
@@ -44,7 +44,7 @@ type free = {
 fun shake file =
     let
         val page_es = List.foldl
-                          (fn ((DExport (_, _, n, _), _), page_es) => n :: page_es
+                          (fn ((DExport (_, _, n, _, _), _), page_es) => n :: page_es
                             | (_, page_es) => page_es) [] file
 
         val (cdef, edef) = foldl (fn ((DDatatype (_, n, xncs), _), (cdef, edef)) =>
-- 
cgit v1.2.3