diff options
Diffstat (limited to '')
| -rw-r--r-- | haskell/src/SpaceTraders/Model/Agent.hs | 7 |
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 |