forked from loafle/openapi-generator-original
31 lines
733 B
Haskell
31 lines
733 B
Haskell
{-# LANGUAGE DataKinds #-}
|
|
{-# LANGUAGE DeriveGeneric #-}
|
|
{-# LANGUAGE TypeOperators #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
|
|
|
|
module Model.User
|
|
( User (..)
|
|
) where
|
|
|
|
import Data.Aeson
|
|
import GHC.Generics
|
|
import Test.QuickCheck
|
|
|
|
|
|
data User = User
|
|
{ id_ :: Integer
|
|
, username :: String
|
|
, firstName :: String
|
|
, lastName :: String
|
|
, email :: String
|
|
, password :: String
|
|
, phone :: String
|
|
, userStatus :: Integer
|
|
} deriving (Show, Eq, Generic)
|
|
|
|
instance FromJSON User
|
|
instance ToJSON User
|
|
instance Arbitrary User where
|
|
arbitrary = User <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary
|