FPO.Dto.UserRoleDto

newtype FullUserRoleDto

Constructors

• FullUserRoleDto { groupID :: Int, groupName :: String, role :: Role }

Instances

• Newtype FullUserRoleDto _
• EncodeJson FullUserRoleDto
• DecodeJson FullUserRoleDto
• Generic FullUserRoleDto _
• Show FullUserRoleDto

getGroupID :: FullUserRoleDto -> Int

getUserRole :: FullUserRoleDto -> Role

getGroupName :: FullUserRoleDto -> String

data Role

Constructors

• Admin
• Member

Instances

• EncodeJson Role
• DecodeJson Role
• Eq Role
• Generic Role _
• Show Role

stringToRole :: String -> Maybe Role