diff options
| author | Paul Oliver <contact@pauloliver.dev> | 2025-01-27 14:51:28 +0000 |
|---|---|---|
| committer | Paul Oliver <contact@pauloliver.dev> | 2025-01-29 04:12:57 +0000 |
| commit | 9d2f95bb58f856aaf9142426e90e5783c98af8f1 (patch) | |
| tree | 9453d5cbed1ae2165e6c8f0824ded00d2372e7bd /hsm-dummy-gradient/Main.hs | |
| parent | 9310ba7e17f97c4570dce33552b3605155ca5c0c (diff) | |
Makes doc-comments cleaner/more elegant
Diffstat (limited to 'hsm-dummy-gradient/Main.hs')
| -rw-r--r-- | hsm-dummy-gradient/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/hsm-dummy-gradient/Main.hs b/hsm-dummy-gradient/Main.hs index 05ead49..de43a8f 100644 --- a/hsm-dummy-gradient/Main.hs +++ b/hsm-dummy-gradient/Main.hs @@ -34,9 +34,9 @@ pwmLoop = do threadDelay $ fromIntegral env.stepDelay dutyCycle dc --- Dummy gradient service: --- Simple test for PWM control. Increases duty-cycle gradually on default PWM --- channel. +-- Dummy Gradient Service: A test for PWM control. Gradually increases the +-- duty cycle on the default PWM channel (GPIO pin 18), causing an LED to +-- brighten until it reaches max brightness, then turns off and repeats. main :: IO () main = launch @Env "dummy-gradient" withoutInputEcho $ \env logger level -> |