@@ -104,6 +104,8 @@ class (DBType a, Enumable a) => DBEnum a where
104104 enumTypeName :: String
105105
106106
107+-- | Types that are sum types, where each constructor is unary (that is, has no
108+-- fields).
107109class (Generic a, GEnumable (Rep a)) => Enumable a
108110instance (Generic a, GEnumable (Rep a)) => Enumable a
109111