diff options
Diffstat (limited to 'hsm-dummy-pulser')
| -rw-r--r-- | hsm-dummy-pulser/Main.hs | 4 |
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 |