{-# LANGUAGE OverloadedStrings, DeriveGeneric #-}

module JSON.Login.Response
( Meta(..)
, Data(..)
, Message(..)
, encode
, decode
, eitherDecode
) where

import GHC.Generics
import Data.Text
import Data.Aeson

data Meta = Meta
  { h_type :: Text
  , h_id :: [Char]
  , h_source :: Text
  , h_replyTo :: Text
  , h_result :: Text
  } deriving (Show, Generic)

data Data = Data
  { h_heartbeatInterval :: Int
  , h_channelId :: Text
  } deriving (Show, Generic)

data Message = Message
  { h_meta :: Meta
  , h_data :: Data
  } deriving (Show, Generic)

instance FromJSON Meta
instance FromJSON Data
instance FromJSON Message

instance ToJSON Meta
instance ToJSON Data
instance ToJSON Message