SO是一场狗屎秀。感谢您的搭车。
使用
module Test ( Bar(..) ) where
从关联的数据族中导出所有构造函数
Bar
module Test ( Bar(UnitBar) ) where
仅导出单个构造函数。
您可以阅读GHC 文档中的相关部分了解更多详细信息。