From 00ad7b9a1c798e611a0c0b7fcbfa5ee76c2f39c4 Mon Sep 17 00:00:00 2001
From: Paul Oliver <contact@pauloliver.dev>
Date: Tue, 14 Jan 2025 15:58:56 -0800
Subject: Adds minimal documentation

---
 hsm-dummy-pulser/Main.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'hsm-dummy-pulser/Main.hs')

diff --git a/hsm-dummy-pulser/Main.hs b/hsm-dummy-pulser/Main.hs
index 3d734ba..48a5302 100644
--- a/hsm-dummy-pulser/Main.hs
+++ b/hsm-dummy-pulser/Main.hs
@@ -50,6 +50,8 @@ stateRun = F.FsmState "run" action
             Nothing
             [(LogAttention, "Reached " <> pack (show env.pulses) <> " pulses")]
 
+-- Dummy pulser service:
+-- Proof of concept. Publishes a "pulse" through ZMQ at a set interval.
 main :: IO ()
 main =
   launch @Env "dummy-pulser" withoutInputEcho $ \env logger level ->
-- 
cgit v1.2.1