diff options
author | Paul Oliver <contact@pauloliver.dev> | 2025-01-16 19:22:18 -0800 |
---|---|---|
committer | Paul Oliver <contact@pauloliver.dev> | 2025-01-24 16:36:25 -0800 |
commit | f912485e9612623888e3e032fb975771c22d2b16 (patch) | |
tree | 01a198647531152d974d4468ae9e558b7689bf2f /hsm-dummy-receiver | |
parent | c18d30706ce647a7b640d73514eecb0aa442873c (diff) |
Cleans excessive type annotations
Diffstat (limited to 'hsm-dummy-receiver')
-rw-r--r-- | hsm-dummy-receiver/Main.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/hsm-dummy-receiver/Main.hs b/hsm-dummy-receiver/Main.hs index 78b343f..451e9c4 100644 --- a/hsm-dummy-receiver/Main.hs +++ b/hsm-dummy-receiver/Main.hs @@ -23,15 +23,15 @@ data Env = Env $(deriveFromYaml ''Env) -handle :: - forall es. Log :> es - => S.Stream (Eff es) Int - -> Eff es () +handle :: Log :> es => S.Stream (Eff es) Int -> Eff es () handle = S.fold S.drain . S.mapM handler where - handler :: Int -> Eff es () - handler p = - localDomain "receiver" $ logInfo_ $ "Received pulse #" <> pack (show p) + handler = + localDomain "receiver" + . logInfo_ + . mappend "Received pulse #" + . pack + . show -- Dummy receiver service: -- Proof of concept. Listens for "pulses" through ZMQ and logs each time one |