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