{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}

module Model.AuthenticationHolder (AuthenticationHolder (..), server_password) where

import Data.Aeson
import GHC.Generics
import Data.Text (Text)
import Data.ByteString

----------------------------------------------------------------------------------------------------
data AuthenticationHolder = AuthenticationHolder
  { username :: Text
  , device :: Text
  , expire :: Maybe Int
  }
  deriving (Show, Eq, Generic)

instance FromJSON AuthenticationHolder
instance ToJSON AuthenticationHolder

server_password :: ByteString
server_password = "jamaa_dev"