hsm-bin/Test/Status.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

{-# LANGUAGE OverloadedStrings #-}

import Control.IO.Region (region)
import Control.Monad.Loops (whileJust_)
import Hsm.GPIO (allocateGPIO)
import Hsm.Readline (allocateReadline, readline)
import Hsm.Status (StatusEnv, status, statusEnvDefault)

newtype Env = Env
  { statusEnv :: StatusEnv
  }

main :: IO ()
main =
  region $ \ioRegion -> do
    lineRequest <- allocateGPIO ioRegion "test-status"
    handle <- allocateReadline ioRegion
    whileJust_ (readline handle) $ status lineRequest $ Env statusEnvDefault