summaryrefslogtreecommitdiff
path: root/haskell/src/SpaceTraders/Model
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--haskell/src/SpaceTraders/Model/Agent.hs7
1 files changed, 2 insertions, 5 deletions
diff --git a/haskell/src/SpaceTraders/Model/Agent.hs b/haskell/src/SpaceTraders/Model/Agent.hs
index be97ac4..3852107 100644
--- a/haskell/src/SpaceTraders/Model/Agent.hs
+++ b/haskell/src/SpaceTraders/Model/Agent.hs
@@ -3,8 +3,7 @@
{-# LANGUAGE OverloadedStrings #-}
module SpaceTraders.Model.Agent
- ( Agent(accountId, credits, headquarters)
- , agentSymbol
+ ( Agent(..)
) where
import Data.Aeson
@@ -13,10 +12,8 @@ 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)
-
-agentSymbol :: Agent -> T.Text
-agentSymbol = symbol