diff options
| author | Julien Dessaux | 2024-03-21 17:08:37 +0100 |
|---|---|---|
| committer | Julien Dessaux | 2024-03-27 15:21:00 +0100 |
| commit | d668eac4a63a9aa98c3efff395faa23cfcea1c1b (patch) | |
| tree | 691e3bb471bcacadb975f581f73e09b84287b4a5 /haskell | |
| parent | [javascript] fixed mining loop (diff) | |
| download | spacetraders-d668eac4a63a9aa98c3efff395faa23cfcea1c1b.tar.gz spacetraders-d668eac4a63a9aa98c3efff395faa23cfcea1c1b.tar.bz2 spacetraders-d668eac4a63a9aa98c3efff395faa23cfcea1c1b.zip | |
[node] begin the great typescript rewrite
Diffstat (limited to 'haskell')
| -rw-r--r-- | haskell/src/SpaceTraders/Automation/Init.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/haskell/src/SpaceTraders/Automation/Init.hs b/haskell/src/SpaceTraders/Automation/Init.hs index 7608867..6641cf8 100644 --- a/haskell/src/SpaceTraders/Automation/Init.hs +++ b/haskell/src/SpaceTraders/Automation/Init.hs @@ -52,11 +52,11 @@ registerST = do r <- register "ADYXAX-HS" "COSMIC" case r of Right r' -> do + let t = token r' + addToken t addAgent $ agent r' addContract $ contract r' addShip $ ship r' - let t = token r' - addToken t return t Left e' -> throw e' |