Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
made SML/NJ happy
authorhaftmann
Sat, 25 Aug 2007 09:22:22 +0200 (2007-08-25)
changeset 24428 fcf429a4e923
parent 24427 bc5cf3b09ff3
child 24429 76372c3847a2
made SML/NJ happy
src/HOL/Tools/datatype_codegen.ML file | annotate | diff | comparison | revisions 
--- a/src/HOL/Tools/datatype_codegen.ML	Fri Aug 24 14:21:33 2007 +0200
+++ b/src/HOL/Tools/datatype_codegen.ML	Sat Aug 25 09:22:22 2007 +0200
@@ -543,7 +543,7 @@
   in try (Code.add_datatype cs) thy |> the_default thy end;
 
 val codetype_hook =
-  fold (fn (dtco, (_, spec)) => add_datatype_spec (dtco, spec));
+  fold (fn (dtco, (_ : bool, spec)) => add_datatype_spec (dtco, spec));
 
 
 (* instrumentalizing the sort algebra *)
isabelle