summaryrefslogtreecommitdiff
path: root/haskell/src/SpaceTraders/Model/Agent.hs
blob: 3852107aea5d150f6a1366d379cf1a4abed8d231 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}

module SpaceTraders.Model.Agent
  ( Agent(..)
  ) where

import Data.Aeson
import GHC.Generics
import qualified Data.Text as T

data Agent = Agent { accountId :: T.Text
                   , credits :: Integer
                   --, faction :: Faction
                   , headquarters :: T.Text
                   , startingFaction :: T.Text
                   , symbol :: T.Text
                   } deriving (FromJSON, Generic, Show, ToJSON)