As an experimental feature (enabled by a flag), HSES could use https://ghc.haskell.org/trac/ghc/wiki/PatternSynonyms/AssociatingSynonyms to bundle the type aliases with their constructors.