changeset 38916 | c0b857a04758 |
parent 38915 | 026526cba0e6 |
child 38923 | 79d7f2b4cf71 |
--- a/src/Tools/Code/code_haskell.ML Mon Aug 30 16:31:38 2010 +0200 +++ b/src/Tools/Code/code_haskell.ML Mon Aug 30 16:33:06 2010 +0200 @@ -390,7 +390,7 @@ end | write_module width NONE (_, content) = writeln_pretty width content; in - Code_Target.mk_serialization + Code_Target.serialization (fn width => fn destination => K () o map (write_module width destination)) (fn width => rpair [] o cat_lines o map (string_of_pretty width o snd)) (map (uncurry print_module) includes