Make `singleConstructor` cope with pattern synonyms