From e3ea039428545e185b38c5633fe3576ab32f1f8e Mon Sep 17 00:00:00 2001
From: Paul Oliver <contact@pauloliver.dev>
Date: Thu, 16 Jan 2025 19:22:18 -0800
Subject: Cleans excessive type annotations

---
 hsm-dummy-poller/Main.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'hsm-dummy-poller')

diff --git a/hsm-dummy-poller/Main.hs b/hsm-dummy-poller/Main.hs
index 762d139..9f2fad9 100644
--- a/hsm-dummy-poller/Main.hs
+++ b/hsm-dummy-poller/Main.hs
@@ -27,16 +27,13 @@ data Env = Env
 $(deriveFromYaml ''Env)
 
 handle ::
-     forall es. (Concurrent :> es, Log :> es, Reader Env :> es)
+     (Concurrent :> es, Log :> es, Reader Env :> es)
   => S.Stream (Eff es) [Int]
   -> Eff es ()
 handle =
   S.fold S.drain . S.mapM (\p -> asks period >>= threadDelay >> handler p)
   where
-    receiverDomain :: Text
     receiverDomain = "receiver"
-    --
-    handler :: [Int] -> Eff es ()
     handler [] = localDomain receiverDomain $ logInfo_ "No pulse received yet"
     handler ps =
       forM_ ps $ \p ->
-- 
cgit v1.2.1