src/Tools/Code/code_haskell.ML

--- a/src/Tools/Code/code_haskell.ML	Tue Dec 21 07:45:04 2010 +0100
+++ b/src/Tools/Code/code_haskell.ML	Tue Dec 21 08:40:39 2010 +0100
@@ -296,7 +296,7 @@
   end;
 
 fun serialize_haskell module_prefix string_classes { labelled_name, reserved_syms,
-    includes, module_alias, class_syntax, tyco_syntax, const_syntax, program } =
+    includes, module_alias, class_syntax, tyco_syntax, const_syntax } program =
   let
 
     (* build program *)