diff options
| author | Julien Dessaux | 2025-02-18 00:18:16 +0100 |
|---|---|---|
| committer | Julien Dessaux | 2025-02-18 00:18:16 +0100 |
| commit | fd06283b8dcb79fff962367ac7a2370370a8a8f8 (patch) | |
| tree | 8f3f54b9c27def19f9e2aedf7d29cba32ce58d4d /haskell | |
| parent | [golang] implement sending the starting probe to a shipyard that sells other ... (diff) | |
| download | spacetraders-fd06283b8dcb79fff962367ac7a2370370a8a8f8.tar.gz spacetraders-fd06283b8dcb79fff962367ac7a2370370a8a8f8.tar.bz2 spacetraders-fd06283b8dcb79fff962367ac7a2370370a8a8f8.zip | |
[node] dependencies update and commit old files
Diffstat (limited to 'haskell')
| -rw-r--r-- | haskell/src/SpaceTraders/APIClient/Contracts.hs | 2 | ||||
| -rw-r--r-- | haskell/src/SpaceTraders/Automation/Init.hs | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/haskell/src/SpaceTraders/APIClient/Contracts.hs b/haskell/src/SpaceTraders/APIClient/Contracts.hs index 9c5bf02..81546a9 100644 --- a/haskell/src/SpaceTraders/APIClient/Contracts.hs +++ b/haskell/src/SpaceTraders/APIClient/Contracts.hs @@ -24,5 +24,5 @@ myContracts = do Right (APIMessage r (Just p')) -> do mapM_ setContract r if limit p' * page p' < total p' then listContracts' (nextPage p') - else Right <$> getContracts + else Right <$> getContracts _ -> undefined diff --git a/haskell/src/SpaceTraders/Automation/Init.hs b/haskell/src/SpaceTraders/Automation/Init.hs index be3dbd2..ac525ca 100644 --- a/haskell/src/SpaceTraders/Automation/Init.hs +++ b/haskell/src/SpaceTraders/Automation/Init.hs @@ -6,6 +6,7 @@ module SpaceTraders.Automation.Init ) where import Control.Exception +import Control.Monad import Control.Monad.Error.Class import Control.Monad.Reader import qualified Data.Text as T |