mateamt/src/Types/Token.hs
2019-04-17 16:14:44 +02:00

21 lines
348 B
Haskell

{-# LANGUAGE DeriveGeneric #-}
module Types.Token where
import GHC.Generics
import Data.Aeson
import Data.ByteString
import Data.Time.Clock (UTCTime)
data Token = Token
{ tokenString :: ByteString
, tokenUser :: Int
, tokenExpiry :: UTCTime
}
deriving (Generic, Show)
instance ToJSON Token where
toJSON (Token s _ _) = toJSON s