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

(limited to 'hsm-dummy-receiver')

diff --git a/hsm-dummy-receiver/Main.hs b/hsm-dummy-receiver/Main.hs
index c0aa98a..78b343f 100644
--- a/hsm-dummy-receiver/Main.hs
+++ b/hsm-dummy-receiver/Main.hs
@@ -33,6 +33,9 @@ handle = S.fold S.drain . S.mapM handler
     handler p =
       localDomain "receiver" $ logInfo_ $ "Received pulse #" <> pack (show p)
 
+-- Dummy receiver service:
+-- Proof of concept. Listens for "pulses" through ZMQ and logs each time one
+-- is received.
 main :: IO ()
 main =
   launch @Env "dummy-receiver" withoutInputEcho $ \env logger level ->
-- 
cgit v1.2.1