From 414aebd6976deeb59eae9fd2c3e52ac2347c51df Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sun, 15 Oct 2023 00:33:59 +0200
Subject: [haskell] Update models for september 14th changelog

---
 haskell/src/SpaceTraders/Model/Ship.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'haskell/src/SpaceTraders/Model/Ship.hs')

diff --git a/haskell/src/SpaceTraders/Model/Ship.hs b/haskell/src/SpaceTraders/Model/Ship.hs
index 4228dca..2ec54f1 100644
--- a/haskell/src/SpaceTraders/Model/Ship.hs
+++ b/haskell/src/SpaceTraders/Model/Ship.hs
@@ -15,6 +15,7 @@ import SpaceTraders.Model.Fuel
 import SpaceTraders.Model.Nav
 
 data Ship = Ship { cargo :: Cargo
+                 , cooldown :: Cooldown
                  --, crew :: Crew
                  --, engine :: Engine
                  --, frame :: Frame
@@ -26,3 +27,8 @@ data Ship = Ship { cargo :: Cargo
                  --, registration :: Registration
                  , symbol :: T.Text
                  } deriving (FromJSON, Generic, Show, ToJSON)
+
+data Cooldown = Cooldown { shipSymbol :: T.Text
+                         , totalSeconds :: Int
+                         , remainingSeconds :: Int
+                         } deriving (FromJSON, Generic, Show, ToJSON)
-- 
cgit v1.2.3