Cleans excessive type annotations

1 files changed, 0 insertions, 4 deletions

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