diff --git a/src/Handler/Users/Add.hs b/src/Handler/Users/Add.hs index d267bd85d..1553c9de9 100644 --- a/src/Handler/Users/Add.hs +++ b/src/Handler/Users/Add.hs @@ -36,9 +36,9 @@ data AdminUserForm = AdminUserForm } data AuthenticationKind = AuthKindLDAP | AuthKindPWHash | AuthKindNoLogin - deriving (Eq, Ord, Read, Show, Enum, Bounded, Generic, Typeable) -instance Universe AuthenticationKind -instance Finite AuthenticationKind + deriving (Eq, Ord, Read, Show, Enum, Bounded, Generic, Typeable, Universe, Finite) +--instance Universe AuthenticationKind +--instance Finite AuthenticationKind embedRenderMessage ''UniWorX ''AuthenticationKind id nullaryPathPiece ''AuthenticationKind $ camelToPathPiece' 2