diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-22 15:12:20 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-22 15:12:20 -0400 |
| commit | e8ceaa0ae216c7c85e810998ab97989e7a83c82d (patch) | |
| tree | f26deeee6825b28bb3e6005523f887de3c1a79a4 /src/shake.sml | |
| parent | b1997d2e699e92e83f7130b7b4a4c5467dcdcd27 (diff) | |
Simple forms work
Diffstat (limited to 'src/shake.sml')
| -rw-r--r-- | src/shake.sml | 2 |
1 files changed, 1 insertions, 1 deletions
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) |