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-poller/Main.hs | 3 +++
 1 file changed, 3 insertions(+)

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

diff --git a/hsm-dummy-poller/Main.hs b/hsm-dummy-poller/Main.hs
index 7a35230..762d139 100644
--- a/hsm-dummy-poller/Main.hs
+++ b/hsm-dummy-poller/Main.hs
@@ -44,6 +44,9 @@ handle =
           $ logInfo_
           $ "Received pulse #" <> pack (show p)
 
+-- Dummy poller service:
+-- Proof of concept. Polls for "pulses" through ZMQ at a set interval and
+-- logs each time one is received.
 main :: IO ()
 main =
   launch @Env "dummy-poller" withoutInputEcho $ \env logger level ->
-- 
cgit v1.2.1