From fd06283b8dcb79fff962367ac7a2370370a8a8f8 Mon Sep 17 00:00:00 2001 From: Julien Dessaux Date: Tue, 18 Feb 2025 00:18:16 +0100 Subject: [node] dependencies update and commit old files --- haskell/src/SpaceTraders/APIClient/Contracts.hs | 2 +- haskell/src/SpaceTraders/Automation/Init.hs | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) (limited to 'haskell/src/SpaceTraders') 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 -- cgit v1.2.3