changeset 29794 | 32d00a2a6f28 |
parent 29711 | 64d41ad4ffc2 |
child 29832 | b4919260eaec |
--- a/src/Tools/code/code_haskell.ML Tue Feb 03 19:37:00 2009 +0100 +++ b/src/Tools/code/code_haskell.ML Tue Feb 03 19:37:16 2009 +0100 @@ -385,7 +385,7 @@ val imports = deps' |> map NameSpace.qualifier |> distinct (op =); - fun pr_import_include (name, _) = str ("import " ^ name ^ ";"); + fun pr_import_include (name, _) = str ("import qualified " ^ name ^ ";"); val pr_import_module = str o (if qualified then prefix "import qualified " else prefix "import ") o suffix ";";