diff options
| author | Julien Dessaux | 2023-10-16 23:18:38 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2023-10-16 23:33:40 +0200 |
| commit | 8c5ad1533d8278d736fed7d6cf61a7fbe0d84282 (patch) | |
| tree | b0d4228a347ac0b4fae87c2174d241a0a50100a4 /haskell/src/SpaceTraders/APIClient | |
| parent | [haskell] Update models for september 14th changelog (diff) | |
| download | spacetraders-8c5ad1533d8278d736fed7d6cf61a7fbe0d84282.tar.gz spacetraders-8c5ad1533d8278d736fed7d6cf61a7fbe0d84282.tar.bz2 spacetraders-8c5ad1533d8278d736fed7d6cf61a7fbe0d84282.zip | |
[haskell] updated main, init and server reset handling
Diffstat (limited to 'haskell/src/SpaceTraders/APIClient')
| -rw-r--r-- | haskell/src/SpaceTraders/APIClient/Client.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/haskell/src/SpaceTraders/APIClient/Client.hs b/haskell/src/SpaceTraders/APIClient/Client.hs index 5c2aa66..9229813 100644 --- a/haskell/src/SpaceTraders/APIClient/Client.hs +++ b/haskell/src/SpaceTraders/APIClient/Client.hs @@ -20,6 +20,9 @@ import qualified Data.Text as T import qualified Data.Text.Encoding as T import Network.HTTP.Simple import Network.HTTP.Types.Status +import System.Directory +import System.Environment +import System.Posix.Process import SpaceTraders import SpaceTraders.APIClient.Errors @@ -86,4 +89,10 @@ sendPaginated pagination requestBuilder = do Right (APIRateLimit r) -> do liftIO $ delay (1_000_000 * (round $ retryAfter r)) sendPaginated' request + Right (APIResetHappened _) -> liftIO $ do + removeFile "spacetraders.db" + p <- getExecutablePath + a <- getArgs + e <- getEnvironment + executeFile p False a (Just e) -- we exec on ourselves Right e -> return $ Left e |