diff options
| author | Julien Dessaux | 2023-07-17 00:53:02 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2023-07-17 00:53:02 +0200 |
| commit | 9f75243ada97ad055dc0b02991695821eda91990 (patch) | |
| tree | cfe5d6b5790307d7b714e64ff1a7896d4d0be0a8 /haskell | |
| parent | [haskell] Add a SpaceTradersT and handle server reset api message (diff) | |
| download | spacetraders-9f75243ada97ad055dc0b02991695821eda91990.tar.gz spacetraders-9f75243ada97ad055dc0b02991695821eda91990.tar.bz2 spacetraders-9f75243ada97ad055dc0b02991695821eda91990.zip | |
[haskell] Trigger a program restart when the api client encounters a server reset
Diffstat (limited to '')
| -rw-r--r-- | haskell/package.yaml | 1 | ||||
| -rw-r--r-- | haskell/src/SpaceTraders/APIClient/Client.hs | 7 |
2 files changed, 8 insertions, 0 deletions
diff --git a/haskell/package.yaml b/haskell/package.yaml index 567b06c..8ecfa55 100644 --- a/haskell/package.yaml +++ b/haskell/package.yaml @@ -27,6 +27,7 @@ dependencies: - text - time - transformers +- unix ghc-options: - -Wall diff --git a/haskell/src/SpaceTraders/APIClient/Client.hs b/haskell/src/SpaceTraders/APIClient/Client.hs index 87147b6..0f0cf27 100644 --- a/haskell/src/SpaceTraders/APIClient/Client.hs +++ b/haskell/src/SpaceTraders/APIClient/Client.hs @@ -23,6 +23,8 @@ import qualified Data.Text as T import qualified Data.Text.Encoding as T import Network.HTTP.Simple import Network.HTTP.Types.Status +import System.Environment +import System.Posix.Process import SpaceTraders.APIClient.Errors import SpaceTraders.APIClient.Pagination @@ -81,4 +83,9 @@ sendPaginated request = do Right (APIRateLimit r) -> do threadDelay (1_000_000 * (round $ retryAfter r)) sendPaginated request + Right (APIResetHappened _) -> do + p <- getExecutablePath + a <- getArgs + e <- getEnvironment + executeFile p False a (Just e) Right e -> return $ Left e |