-- | Like 'getPinInputMode'.
getInputPinInputMode :: (MonadGpio h m) => InputPin h -> m PinInputMode
getInputPinInputMode p =
  getPinInputMode (_inputHandle p)
getInputPinInputMode :: (MonadGpio h m) => InputPin h -> m PinInputMode
getInputPinInputMode p =
  getPinInputMode (_inputHandle p)
getInputPinInputMode p =
  getPinInputMode (_inputHandle p)