projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
mkIfaceExports: sort the children of AvailTC
[ghc-hetmet.git]
/
compiler
/
iface
/
MkIface.lhs
diff --git
a/compiler/iface/MkIface.lhs
b/compiler/iface/MkIface.lhs
index
4ab1161
..
8c1b2a0
100644
(file)
--- a/
compiler/iface/MkIface.lhs
+++ b/
compiler/iface/MkIface.lhs
@@
-847,7
+847,8
@@
mkIfaceExports exports
-- Usually just one, but see Note [Original module]
add_for_mod env mod
-- 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}
where
names_from_mod = [nameOccName n | n <- ns, nameModule n == mod]
\end{code}