summaryrefslogtreecommitdiff
path: root/haskell/src/SpaceTraders/Model
diff options
context:
space:
mode:
authorJulien Dessaux2023-07-07 22:33:43 +0200
committerJulien Dessaux2023-07-07 22:34:09 +0200
commitf23fe74dbe264cebe6e18eabac0600c4b06b5caf (patch)
treeb862a89ce02cdaeaf19e9539749e48c3c7881621 /haskell/src/SpaceTraders/Model
parent[javascript] Updated dependencies (diff)
downloadspacetraders-f23fe74dbe264cebe6e18eabac0600c4b06b5caf.tar.gz
spacetraders-f23fe74dbe264cebe6e18eabac0600c4b06b5caf.tar.bz2
spacetraders-f23fe74dbe264cebe6e18eabac0600c4b06b5caf.zip
[haskell] back off when hitting the rate limit
Diffstat (limited to 'haskell/src/SpaceTraders/Model')
-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