diff options
Diffstat (limited to 'hsm-gpio/Hsm')
| -rw-r--r-- | hsm-gpio/Hsm/GPIO.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/hsm-gpio/Hsm/GPIO.hs b/hsm-gpio/Hsm/GPIO.hs index bc08ef5..5357167 100644 --- a/hsm-gpio/Hsm/GPIO.hs +++ b/hsm-gpio/Hsm/GPIO.hs @@ -59,7 +59,7 @@ stateStr False = "off" -- To control the pins, I use a subprocess call to `gpioset`. In the future -- I'd prefer wrapping `libgpiod` directly. It looks like no one has created a -- C wrapper yet, I might do it if I get bored. :) -gpioset :: Log :> es => Bool -> Set GPIO -> [Int] -> Eff es () +gpioset :: Log :> es => Bool -> Set GPIO -> [Word] -> Eff es () gpioset state gpios periods = do localDomain domain $ logTrace_ $ "Calling command: " <> pack command E.unsafeEff_ $ callCommand command @@ -72,7 +72,7 @@ gpioset state gpios periods = do <> concatMap lineArg (toList gpios) logReport :: - (Log :> es, Show key) => Bool -> key -> [Int] -> Set GPIO -> Eff es () + (Log :> es, Show key) => Bool -> key -> [Word] -> Set GPIO -> Eff es () logReport state key periods gpios = do localDomain domain $ logTrace_ report flushLogger @@ -91,7 +91,7 @@ toggle :: (GPIOEffect key :> es, Log :> es, Show key) => Bool -> key - -> [Int] + -> [Word] -> Eff es () toggle state key periods = do GPIOEffect mapper <- E.getStaticRep |