From d668eac4a63a9aa98c3efff395faa23cfcea1c1b Mon Sep 17 00:00:00 2001 From: Julien Dessaux Date: Thu, 21 Mar 2024 17:08:37 +0100 Subject: [node] begin the great typescript rewrite --- haskell/src/SpaceTraders/Automation/Init.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'haskell/src/SpaceTraders') 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' -- cgit v1.2.3