diff options
Diffstat (limited to '')
| -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 |