@@ -56,6 +56,8 @@ localizer metaModule = go
56realias :: Rules -> Type -> Type
56realias :: Rules -> Type -> Type
57realias (aliases,localize) tipe = localize (canonicalRealias aliases tipe)
57realias (aliases,localize) tipe = localize (canonicalRealias aliases tipe)
59+-- Realias using canonical aliases, so results will have aliases
60+-- that are fully qualified and possible to compare.
59canonicalRealias :: [(String,[String],Type)] -> Type -> Type
61canonicalRealias :: [(String,[String],Type)] -> Type -> Type
60canonicalRealias aliases tipe =
62canonicalRealias aliases tipe =
61 case concatMap tryRealias aliases of
63 case concatMap tryRealias aliases of