diff options
Diffstat (limited to '')
-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' |