Mercurial > urweb
diff src/shake.sml @ 192:9bbf4d383381
Parametrized datatypes through corify
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Fri, 08 Aug 2008 10:59:06 -0400 |
| parents | 80192edca30d |
| children | 5c50b17f5e4a |
line wrap: on
line diff
--- a/src/shake.sml Fri Aug 08 10:28:32 2008 -0400 +++ b/src/shake.sml Fri Aug 08 10:59:06 2008 -0400 @@ -48,7 +48,7 @@ | (_, page_es) => page_es) [] file val (cdef, edef) = foldl (fn ((DCon (_, n, _, c), _), (cdef, edef)) => (IM.insert (cdef, n, [c]), edef) - | ((DDatatype (_, n, xncs), _), (cdef, edef)) => + | ((DDatatype (_, n, _, xncs), _), (cdef, edef)) => (IM.insert (cdef, n, List.mapPartial #3 xncs), edef) | ((DVal (_, n, t, e, _), _), (cdef, edef)) => (cdef, IM.insert (edef, n, (t, e))) | ((DValRec vis, _), (cdef, edef)) => @@ -102,7 +102,7 @@ | SOME (t, e) => shakeExp (shakeCon s t) e) s page_es in List.filter (fn (DCon (_, n, _, _), _) => IS.member (#con s, n) - | (DDatatype (_, n, _), _) => IS.member (#con s, n) + | (DDatatype (_, n, _, _), _) => IS.member (#con s, n) | (DVal (_, n, _, _, _), _) => IS.member (#exp s, n) | (DValRec vis, _) => List.exists (fn (_, n, _, _, _) => IS.member (#exp s, n)) vis | (DExport _, _) => true) file