120 lines
2.6 KiB
Haskell
120 lines
2.6 KiB
Haskell
{-# LANGUAGE DeriveGeneric #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
module Types.User where
|
|
|
|
import GHC.Generics
|
|
|
|
import Data.Time.Calendar (Day)
|
|
|
|
import Data.Aeson
|
|
|
|
import qualified Data.Text as T
|
|
|
|
-- internal imports
|
|
|
|
import Types.Auth
|
|
|
|
data User
|
|
= User
|
|
{ userId :: Int
|
|
, userIdent :: T.Text
|
|
, userBalance :: Int
|
|
, userTimeStamp :: Day
|
|
, userEmail :: Maybe T.Text
|
|
, userAvatar :: Maybe Int
|
|
, userSalt :: AuthSalt
|
|
, userHash :: Maybe AuthHash
|
|
, userAlgo :: Maybe Int
|
|
}
|
|
deriving (Generic, Show)
|
|
|
|
instance ToJSON User where
|
|
toEncoding (User uid ident _ _ _ avatar _ _ _) =
|
|
pairs
|
|
( "userId" .= uid
|
|
<> "userIdent" .= ident
|
|
<> "userAvatar" .= avatar
|
|
)
|
|
|
|
instance FromJSON User
|
|
|
|
|
|
data UserSummary = UserSummary
|
|
{ userSummaryId :: Int
|
|
, userSummaryIdent :: T.Text
|
|
, userSummaryAvatar :: Maybe Int
|
|
}
|
|
deriving (Generic, Show)
|
|
|
|
instance ToJSON UserSummary where
|
|
toEncoding = genericToEncoding defaultOptions
|
|
|
|
instance FromJSON UserSummary
|
|
|
|
|
|
data UserSubmit = UserSubmit
|
|
{ userSubmitIdent :: T.Text
|
|
, userSubmitEmail :: Maybe T.Text
|
|
--, userSubmitPin :: Maybe T.Text
|
|
}
|
|
deriving (Generic, Show)
|
|
|
|
instance ToJSON UserSubmit where
|
|
toEncoding = genericToEncoding defaultOptions
|
|
|
|
instance FromJSON UserSubmit
|
|
|
|
|
|
data UserDetails = UserDetails
|
|
{ userDetailsId :: Int
|
|
, userDetailsIdent :: T.Text
|
|
, userDetailsBalance :: Int
|
|
, userDetailsEmail :: Maybe T.Text
|
|
, userDetailsAvatar :: Maybe Int
|
|
, userDetailsSalt :: AuthSalt
|
|
, userDetailsAlgo :: Maybe AuthAlgorithm
|
|
}
|
|
deriving (Generic, Show)
|
|
|
|
instance ToJSON UserDetails where
|
|
toEncoding = genericToEncoding defaultOptions
|
|
|
|
instance FromJSON UserDetails
|
|
|
|
|
|
data UserDetailsSubmit = UserDetailsSubmit
|
|
{ userDetailsSubmitIdent :: T.Text
|
|
, userDetailsSubmitEmail :: Maybe T.Text
|
|
, userDetailsSubmitAvatar :: Maybe Int
|
|
, userDetailsSubmitHash :: Maybe AuthHash
|
|
, userDetailsSubmitAlgo :: Maybe AuthAlgorithm
|
|
}
|
|
deriving (Generic, Show)
|
|
|
|
instance ToJSON UserDetailsSubmit where
|
|
toEncoding = genericToEncoding defaultOptions
|
|
|
|
instance FromJSON UserDetailsSubmit
|
|
|
|
|
|
data UserRecharge = UserRecharge
|
|
{ userRechargeAmount :: Int
|
|
}
|
|
deriving (Generic, Show)
|
|
|
|
instance ToJSON UserRecharge where
|
|
toEncoding = genericToEncoding defaultOptions
|
|
|
|
instance FromJSON UserRecharge
|
|
|
|
|
|
data UserTransfer = UserTransfer
|
|
{ userTransferTarget :: Int
|
|
, userTransferAmount :: Int
|
|
}
|
|
deriving (Generic, Show)
|
|
|
|
instance ToJSON UserTransfer where
|
|
toEncoding = genericToEncoding defaultOptions
|
|
|
|
instance FromJSON UserTransfer
|