summaryrefslogtreecommitdiff
path: root/haskell/src/SpaceTraders/APIClient
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/APIClient
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/APIClient/Ships.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/haskell/src/SpaceTraders/APIClient/Ships.hs b/haskell/src/SpaceTraders/APIClient/Ships.hs
index f4b7290..87c5ecb 100644
--- a/haskell/src/SpaceTraders/APIClient/Ships.hs
+++ b/haskell/src/SpaceTraders/APIClient/Ships.hs
@@ -29,7 +29,7 @@ dock ship = do
Left e -> return $ Left e
Right (NavMessage n) -> do
let s = ship{SpaceTraders.Model.Ship.nav=n}
- updateShip s Nothing
+ updateShip s
return $ Right s
myShips :: SpaceTradersT (APIResponse [Ship])
@@ -55,5 +55,5 @@ orbit ship = do
Left e -> return $ Left e
Right (NavMessage n) -> do
let s = ship{SpaceTraders.Model.Ship.nav=n}
- updateShip s Nothing
+ updateShip s
return $ Right s