- ext_dups = findDupsEq eq_ext (map Var.varName binders)
- eq_ext n1 n2 | Just m1 <- nameModule_maybe n1
- , Just m2 <- nameModule_maybe n2
- = m1==m2 && nameOccName n1 == nameOccName n2
- | otherwise = False
+ ext_dups = snd (removeDups ord_ext (map Var.varName binders))
+ ord_ext n1 n2 | Just m1 <- nameModule_maybe n1
+ , Just m2 <- nameModule_maybe n2
+ = compare (m1, nameOccName n1) (m2, nameOccName n2)
+ | otherwise = LT