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-pulser/Main.hs | 4 ----
 1 file changed, 4 deletions(-)

(limited to 'hsm-dummy-pulser')

diff --git a/hsm-dummy-pulser/Main.hs b/hsm-dummy-pulser/Main.hs
index 48a5302..d15b616 100644
--- a/hsm-dummy-pulser/Main.hs
+++ b/hsm-dummy-pulser/Main.hs
@@ -32,19 +32,15 @@ pulse = repeatM $ asks period >>= threadDelay
 stateRun :: F.FsmState () Int Env Int
 stateRun = F.FsmState "run" action
   where
-    action :: () -> Env -> Int -> F.FsmOutput () Int Env Int
     action _ env sta =
       if sta < env.pulses
         then next
         else exit
       where
-        next :: F.FsmOutput () Int Env Int
         next =
           F.FsmOutput
             (Just $ F.FsmResult sta (succ sta) stateRun)
             [(LogInfo, "Sending pulse #" <> pack (show sta))]
-        --
-        exit :: F.FsmOutput () Int Env Int
         exit =
           F.FsmOutput
             Nothing
-- 
cgit v1.2.1