summaryrefslogtreecommitdiff
path: root/haskell/src/SpaceTraders
diff options
context:
space:
mode:
authorJulien Dessaux2024-03-21 17:08:37 +0100
committerJulien Dessaux2024-03-27 15:21:00 +0100
commitd668eac4a63a9aa98c3efff395faa23cfcea1c1b (patch)
tree691e3bb471bcacadb975f581f73e09b84287b4a5 /haskell/src/SpaceTraders
parent[javascript] fixed mining loop (diff)
downloadspacetraders-d668eac4a63a9aa98c3efff395faa23cfcea1c1b.tar.gz
spacetraders-d668eac4a63a9aa98c3efff395faa23cfcea1c1b.tar.bz2
spacetraders-d668eac4a63a9aa98c3efff395faa23cfcea1c1b.zip
[node] begin the great typescript rewrite
Diffstat (limited to '')
-rw-r--r--haskell/src/SpaceTraders/Automation/Init.hs4
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'