# HG changeset patch
# User haftmann
# Date 1257264395 -3600
# Node ID 3789fe962a08adbbe70c071eb53cc205d3da01fa
# Parent  17b7095ad4631016033b24d6868b6a042c9ad2fb
always be qualified -- suspected smartness in fact never worked as expected

diff -r 17b7095ad463 -r 3789fe962a08 src/Tools/Code/code_haskell.ML
--- a/src/Tools/Code/code_haskell.ML	Tue Nov 03 17:06:08 2009 +0100
+++ b/src/Tools/Code/code_haskell.ML	Tue Nov 03 17:06:35 2009 +0100
@@ -360,14 +360,10 @@
     fun serialize_module1 (module_name', (deps, (stmts, _))) =
       let
         val stmt_names = map fst stmts;
-        val deps' = subtract (op =) stmt_names deps
+        val qualified = is_none module_name;
+        val imports = subtract (op =) stmt_names deps
           |> distinct (op =)
-          |> map_filter (try deresolver);
-        val qualified = is_none module_name andalso
-          map deresolver stmt_names @ deps'
-          |> map Long_Name.base_name
-          |> has_duplicates (op =);
-        val imports = deps'
+          |> map_filter (try deresolver)
           |> map Long_Name.qualifier
           |> distinct (op =);
         fun pr_import_include (name, _) = str ("import qualified " ^ name ^ ";");