From e3ea039428545e185b38c5633fe3576ab32f1f8e Mon Sep 17 00:00:00 2001 From: Paul Oliver Date: Thu, 16 Jan 2025 19:22:18 -0800 Subject: Cleans excessive type annotations --- hsm-dummy-receiver/Main.hs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'hsm-dummy-receiver/Main.hs') 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 -- cgit v1.2.1