diff options
| author | Julien Dessaux | 2023-10-14 23:59:32 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2023-10-16 23:33:36 +0200 |
| commit | 0ecb8e87c0ab3448accbbdf58551f51969999bdb (patch) | |
| tree | aa3e54a01483e4265424cd454b37fa0742bb424f /haskell/src/SpaceTraders/APIClient/Ships.hs | |
| parent | [javascript] Upgraded dependencies (diff) | |
| download | spacetraders-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.hs | 4 |
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 |