Cleans excessive type annotations

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