From 367aaf43ef9c52f454a721b1924808aeb2d7944f Mon Sep 17 00:00:00 2001
From: Paul Oliver <contact@pauloliver.dev>
Date: Thu, 23 Jan 2025 14:22:33 -0800
Subject: Replaces Int with Word type for numerical values

---
 hsm-dummy-fail/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'hsm-dummy-fail')

diff --git a/hsm-dummy-fail/Main.hs b/hsm-dummy-fail/Main.hs
index b2b8988..785304c 100644
--- a/hsm-dummy-fail/Main.hs
+++ b/hsm-dummy-fail/Main.hs
@@ -21,7 +21,7 @@ import System.IO.Echo (withoutInputEcho)
 data Env = Env
   { name :: Text
   , pubEp :: Text
-  , alive :: Int
+  , alive :: Word
   }
 
 $(deriveFromYaml ''Env)
@@ -33,7 +33,7 @@ singleError =
     -- Seemingly, the service needs to be alive for a bit for ZMQ comms to
     -- kick in.
     env <- ask @Env
-    threadDelay env.alive
+    threadDelay $ fromIntegral env.alive
     return $ message env.name $ Error 0 "Sent from dummy-fail service"
 
 -- Dummy fail service:
-- 
cgit v1.2.1