diff options
Diffstat (limited to 'hsm-dummy-fail/Main.hs')
| -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: |