@@ -104,6 +104,8 @@ class (DBType a, Enumable a) => DBEnum a where
104 enumTypeName :: String
104 enumTypeName :: String
107+-- | Types that are sum types, where each constructor is unary (that is, has no
107class (Generic a, GEnumable (Rep a)) => Enumable a
109class (Generic a, GEnumable (Rep a)) => Enumable a
108instance (Generic a, GEnumable (Rep a)) => Enumable a
110instance (Generic a, GEnumable (Rep a)) => Enumable a