diff options
| author | Julien Dessaux | 2023-07-07 22:33:43 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2023-07-07 22:34:09 +0200 |
| commit | f23fe74dbe264cebe6e18eabac0600c4b06b5caf (patch) | |
| tree | b862a89ce02cdaeaf19e9539749e48c3c7881621 /haskell/src/SpaceTraders/Model | |
| parent | [javascript] Updated dependencies (diff) | |
| download | spacetraders-f23fe74dbe264cebe6e18eabac0600c4b06b5caf.tar.gz spacetraders-f23fe74dbe264cebe6e18eabac0600c4b06b5caf.tar.bz2 spacetraders-f23fe74dbe264cebe6e18eabac0600c4b06b5caf.zip | |
[haskell] back off when hitting the rate limit
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 |