diff options
| author | Paul Oliver <contact@pauloliver.dev> | 2025-07-02 15:06:35 +0200 |
|---|---|---|
| committer | Paul Oliver <contact@pauloliver.dev> | 2025-08-13 23:54:10 +0000 |
| commit | 8fe62292f18f4577303a868a8557b0486b218bcb (patch) | |
| tree | cb9a9108eea479e932f37d03cf399b680e3886b2 /hsm-bin/Test/Drive.hs | |
| parent | 0be7f1274e0cb8406bd4262b86d5e2e9dda77d7a (diff) | |
Code now uses `effectful` to manage side-effects
Diffstat (limited to 'hsm-bin/Test/Drive.hs')
| -rw-r--r-- | hsm-bin/Test/Drive.hs | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/hsm-bin/Test/Drive.hs b/hsm-bin/Test/Drive.hs deleted file mode 100644 index 7a58c11..0000000 --- a/hsm-bin/Test/Drive.hs +++ /dev/null @@ -1,22 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} - -import Control.IO.Region (region) -import Control.Monad.Loops (whileJust_) -import Hsm.Drive (DriveEnv, drive, driveEnvDefault) -import Hsm.GPIO (allocateGPIO) -import Hsm.PWM (allocatePWM) -import Hsm.Readline (allocateReadline, readline) - -newtype Env = Env - { driveEnv :: DriveEnv - } - -main :: IO () -main = - region $ \ioRegion -> do - lineRequest <- allocateGPIO ioRegion "test-status" - pwmHandle <- allocatePWM ioRegion $ const 0 - handle <- allocateReadline ioRegion - whileJust_ (readline handle) - $ drive lineRequest pwmHandle - $ Env driveEnvDefault |