From f23fe74dbe264cebe6e18eabac0600c4b06b5caf Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Fri, 7 Jul 2023 22:33:43 +0200
Subject: [haskell] back off when hitting the rate limit

---
 haskell/src/SpaceTraders/Model/Agent.hs | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'haskell/src/SpaceTraders/Model')

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
-- 
cgit v1.2.3