+-------------------------------------
+sortAvails :: Avails -> Avails
+sortAvails avails = sortLt lt avails
+ where
+ a1 `lt` a2 = mod1 < mod2 ||
+ (mod1 == mod2 && occ1 < occ2)
+ where
+ name1 = availName a1
+ name2 = availName a2
+ mod1 = nameModule name1
+ mod2 = nameModule name2
+ occ1 = nameOccName name1
+ occ2 = nameOccName name2
+
+-------------------------------------