X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fiface%2FMkIface.lhs;h=8c1b2a0467aa9515cd6398406434ffeafb716eac;hb=8fd85c9d692f91a5b565bb0d54050c2ce6ac6ae2;hp=6bbb5998e3b57a4614b15feb3db2221ec9ee3091;hpb=5822cb8d13aa3c05d2b46b4510c13d94b902eb21;p=ghc-hetmet.git

diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs
index 6bbb599..8c1b2a0 100644
--- a/compiler/iface/MkIface.lhs
+++ b/compiler/iface/MkIface.lhs
@@ -4,6 +4,13 @@
 %
 
 \begin{code}
+{-# OPTIONS -w #-}
+-- The above warning supression flag is a temporary kludge.
+-- While working on this module you are encouraged to remove it and fix
+-- any warnings in the module. See
+--     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
+-- for details
+
 module MkIface ( 
 	mkUsageInfo, 	-- Construct the usage info for a module
 
@@ -840,7 +847,8 @@ mkIfaceExports exports
 		-- Usually just one, but see Note [Original module]
 
 	add_for_mod env mod
-	    = add_one env mod (AvailTC tc_occ names_from_mod)
+	    = add_one env mod (AvailTC tc_occ (sort names_from_mod))
+              -- NB. sort the children, we need a canonical order
 	    where
 	      names_from_mod = [nameOccName n | n <- ns, nameModule n == mod]
 \end{code}