1.1 --- a/src/Tools/Code/code_haskell.ML	Mon Aug 30 16:31:38 2010 +0200
     1.2 +++ b/src/Tools/Code/code_haskell.ML	Mon Aug 30 16:33:06 2010 +0200
     1.3 @@ -390,7 +390,7 @@
     1.4            end
     1.5        | write_module width NONE (_, content) = writeln_pretty width content;
     1.6    in
     1.7 -    Code_Target.mk_serialization
     1.8 +    Code_Target.serialization
     1.9        (fn width => fn destination => K () o map (write_module width destination))
    1.10        (fn width => rpair [] o cat_lines o map (string_of_pretty width o snd))
    1.11        (map (uncurry print_module) includes