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/Waypoint.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/Waypoint.hs')
-rw-r--r-- | haskell/src/SpaceTraders/Model/Waypoint.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/haskell/src/SpaceTraders/Model/Waypoint.hs b/haskell/src/SpaceTraders/Model/Waypoint.hs index b32af75..d80dc7a 100644 --- a/haskell/src/SpaceTraders/Model/Waypoint.hs +++ b/haskell/src/SpaceTraders/Model/Waypoint.hs @@ -10,19 +10,22 @@ import Data.Aeson import qualified Data.Text as T import GHC.Generics -data Waypoint = Waypoint { symbol :: T.Text +data Waypoint = Waypoint { orbits :: Maybe T.Text + , symbol :: T.Text , waypointType :: T.Text , x :: Int , y :: Int } deriving (Generic, Show) instance FromJSON Waypoint where parseJSON = withObject "Waypoint" $ \o -> - Waypoint <$> o .: "symbol" + Waypoint <$> o .:? "orbits" + <*> o .: "symbol" <*> o .: "type" <*> o .: "x" <*> o .: "y" instance ToJSON Waypoint where - toJSON (Waypoint o s t xx yy) = object [ "symbol" .= s + toJSON (Waypoint o s t xx yy) = object [ "orbits" .= o + , "symbol" .= s , "type" .= t , "x" .= xx , "y" .= yy ] |