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/Automation')

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