diff options
author | Julien Dessaux | 2023-10-15 00:33:59 +0200 |
---|---|---|
committer | Julien Dessaux | 2023-10-16 23:33:40 +0200 |
commit | 414aebd6976deeb59eae9fd2c3e52ac2347c51df (patch) | |
tree | 49a30f3d0a658febf1564240f99eb2c9cbd3777b /haskell/src/SpaceTraders/Model/Ship.hs | |
parent | [haskell] Removed available timestamp from ship's database schema (diff) | |
download | spacetraders-414aebd6976deeb59eae9fd2c3e52ac2347c51df.tar.gz spacetraders-414aebd6976deeb59eae9fd2c3e52ac2347c51df.tar.bz2 spacetraders-414aebd6976deeb59eae9fd2c3e52ac2347c51df.zip |
[haskell] Update models for september 14th changelog
Diffstat (limited to 'haskell/src/SpaceTraders/Model/Ship.hs')
-rw-r--r-- | haskell/src/SpaceTraders/Model/Ship.hs | 6 |
1 files changed, 6 insertions, 0 deletions
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) |