summaryrefslogtreecommitdiff
path: root/haskell/src/SpaceTraders
diff options
context:
space:
mode:
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'