summaryrefslogtreecommitdiff
path: root/haskell/src/SpaceTraders/Model/Waypoint.hs
diff options
context:
space:
mode:
authorJulien Dessaux2023-10-14 23:59:32 +0200
committerJulien Dessaux2023-10-16 23:33:36 +0200
commit0ecb8e87c0ab3448accbbdf58551f51969999bdb (patch)
treeaa3e54a01483e4265424cd454b37fa0742bb424f /haskell/src/SpaceTraders/Model/Waypoint.hs
parent[javascript] Upgraded dependencies (diff)
downloadspacetraders-0ecb8e87c0ab3448accbbdf58551f51969999bdb.tar.gz
spacetraders-0ecb8e87c0ab3448accbbdf58551f51969999bdb.tar.bz2
spacetraders-0ecb8e87c0ab3448accbbdf58551f51969999bdb.zip
[haskell] Removed available timestamp from ship's database schema
Diffstat (limited to '')
-rw-r--r--haskell/src/SpaceTraders/Model/Waypoint.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/haskell/src/SpaceTraders/Model/Waypoint.hs b/haskell/src/SpaceTraders/Model/Waypoint.hs
index 458df21..b32af75 100644
--- a/haskell/src/SpaceTraders/Model/Waypoint.hs
+++ b/haskell/src/SpaceTraders/Model/Waypoint.hs
@@ -22,7 +22,7 @@ instance FromJSON Waypoint where
<*> o .: "x"
<*> o .: "y"
instance ToJSON Waypoint where
- toJSON (Waypoint s t xx yy) = object [ "symbol" .= s
- , "type" .= t
- , "x" .= xx
- , "y" .= yy ]
+ toJSON (Waypoint o s t xx yy) = object [ "symbol" .= s
+ , "type" .= t
+ , "x" .= xx
+ , "y" .= yy ]