InitialHEADmaster

1 files changed, 23 insertions, 0 deletions

diff --git a/hsm-bin/Test/Drive.hs b/hsm-bin/Test/Drive.hs
new file mode 100644
index 0000000..899964c
--- /dev/null
+++ b/hsm-bin/Test/Drive.hs
@@ -0,0 +1,23 @@
+{-# LANGUAGE OverloadedRecordDot #-}
+{-# 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 qualified as P
+import Hsm.Readline (allocateReadline, readline)
+
+newtype Env = Env
+  { driveEnv :: DriveEnv
+  }
+
+main :: IO ()
+main =
+  region $ \ioRegion -> do
+    lineRequest <- allocateGPIO ioRegion "test-drive"
+    pwmHandle <- P.allocatePWM ioRegion
+    handle <- allocateReadline ioRegion
+    whileJust_ (readline handle)
+      $ drive pwmHandle lineRequest
+      $ Env driveEnvDefault