aboutsummaryrefslogtreecommitdiff
path: root/hsm-dummy-blinker/Main.hs
diff options
context:
space:
mode:
authorPaul Oliver <contact@pauloliver.dev>2025-01-27 14:51:28 +0000
committerPaul Oliver <contact@pauloliver.dev>2025-01-29 04:12:57 +0000
commit9d2f95bb58f856aaf9142426e90e5783c98af8f1 (patch)
tree9453d5cbed1ae2165e6c8f0824ded00d2372e7bd /hsm-dummy-blinker/Main.hs
parent9310ba7e17f97c4570dce33552b3605155ca5c0c (diff)
Makes doc-comments cleaner/more elegant
Diffstat (limited to 'hsm-dummy-blinker/Main.hs')
-rw-r--r--hsm-dummy-blinker/Main.hs5
1 files changed, 2 insertions, 3 deletions
diff --git a/hsm-dummy-blinker/Main.hs b/hsm-dummy-blinker/Main.hs
index 9405ae3..5c7cb13 100644
--- a/hsm-dummy-blinker/Main.hs
+++ b/hsm-dummy-blinker/Main.hs
@@ -50,9 +50,8 @@ handle = S.fold S.drain . S.mapM handler
env <- ask @Env
toggle sta () [env.period, 0]
--- Dummy blinker service:
--- Proof of concept. This service toggles a GPIO on and off using a set
--- period.
+-- Dummy Blinker Service: A proof of concept that toggles a GPIO pin on and
+-- off at a set interval.
main :: IO ()
main =
launch @Env "dummy-blinker" withoutInputEcho $ \env logger level ->