diff options
| author | Paul Oliver <contact@pauloliver.dev> | 2025-01-23 14:22:33 -0800 |
|---|---|---|
| committer | Paul Oliver <contact@pauloliver.dev> | 2025-01-24 16:36:25 -0800 |
| commit | 367aaf43ef9c52f454a721b1924808aeb2d7944f (patch) | |
| tree | ce166cf19d119510ba36f4b3c1fdcb9f2214c299 /hsm-dummy-fail | |
| parent | 85d856e87ad7875e5dfab19e22e71c4118f4cbad (diff) | |
Replaces Int with Word type for numerical values
Diffstat (limited to 'hsm-dummy-fail')
| -rw-r--r-- | hsm-dummy-fail/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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: |