mateamt/src/Types/Avatar.hs

34 lines
616 B
Haskell
Raw Normal View History

2019-09-07 18:05:24 +00:00
{-# LANGUAGE DeriveGeneric #-}
module Types.Avatar where
import qualified Data.Text as T
import Data.Aeson
import GHC.Generics
data Avatar = Avatar
{ avatarId :: Int
, avatarName :: T.Text
, avatarHash :: T.Text
, avatarData :: T.Text
}
deriving (Show, Generic)
instance ToJSON Avatar where
toEncoding = genericToEncoding defaultOptions
instance FromJSON Avatar
data AvatarData = AvatarData
{ avatarDataName :: T.Text
, avatarDataData :: T.Text
}
deriving (Show, Generic)
instance ToJSON AvatarData where
toEncoding = genericToEncoding defaultOptions
instance FromJSON AvatarData