From e8ceaa0ae216c7c85e810998ab97989e7a83c82d Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 22 Jul 2008 15:12:20 -0400
Subject: Simple forms work

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

(limited to 'src/shake.sml')

diff --git a/src/shake.sml b/src/shake.sml
index 038dc8f9..693385d9 100644
--- a/src/shake.sml
+++ b/src/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 ((DCon (_, n, _, c), _), (cdef, edef)) => (IM.insert (cdef, n, c), edef)
-- 
cgit v1.2.3