SerialInputSignals.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from serial (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.SerialInputSignals
       (js_newSerialInputSignals, js_setDataCarrierDetect, js_getDataCarrierDetect, js_setClearToSend, js_getClearToSend, js_setRingIndicator, js_getRingIndicator, js_setDataSetReady, js_getDataSetReady, newSerialInputSignals, setDataCarrierDetect, getDataCarrierDetect, setClearToSend, getClearToSend, setRingIndicator, getRingIndicator, setDataSetReady, getDataSetReady, SerialInputSignals(..), gTypeSerialInputSignals)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(($1, $2, $3, $4) => { return ({\"dataCarrierDetect\": $1, \"clearToSend\": $2, \"ringIndicator\": $3, \"dataSetReady\": $4}); })"
        js_newSerialInputSignals :: Bool -> Bool -> Bool -> Bool -> IO SerialInputSignals
-- | <https://serial.spec.whatwg.org/#dictdef-serialinputsignals SerialInputSignals specification>
newSerialInputSignals :: (MonadDOM m) => Bool -> Bool -> Bool -> Bool -> m SerialInputSignals
newSerialInputSignals dataCarrierDetect clearToSend ringIndicator dataSetReady = liftDOM ((js_newSerialInputSignals (dataCarrierDetect) (clearToSend) (ringIndicator) (dataSetReady)))

foreign import javascript safe "(($1, $2) => { $1[\"dataCarrierDetect\"] = $2; })"
        js_setDataCarrierDetect :: SerialInputSignals -> Bool -> IO ()
-- | <https://serial.spec.whatwg.org/#dom-serialinputsignals-datacarrierdetect SerialInputSignals.dataCarrierDetect specification>
setDataCarrierDetect :: (MonadDOM m) => SerialInputSignals -> Bool -> m ()
setDataCarrierDetect self val = liftDOM (void ((js_setDataCarrierDetect (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"dataCarrierDetect\"]; })"
        js_getDataCarrierDetect :: SerialInputSignals -> IO Bool
-- | <https://serial.spec.whatwg.org/#dom-serialinputsignals-datacarrierdetect SerialInputSignals.dataCarrierDetect specification>
getDataCarrierDetect :: (MonadDOM m) => SerialInputSignals -> m Bool
getDataCarrierDetect self = liftDOM ((js_getDataCarrierDetect (self)))

foreign import javascript safe "(($1, $2) => { $1[\"clearToSend\"] = $2; })"
        js_setClearToSend :: SerialInputSignals -> Bool -> IO ()
-- | <https://serial.spec.whatwg.org/#dom-serialinputsignals-cleartosend SerialInputSignals.clearToSend specification>
setClearToSend :: (MonadDOM m) => SerialInputSignals -> Bool -> m ()
setClearToSend self val = liftDOM (void ((js_setClearToSend (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"clearToSend\"]; })"
        js_getClearToSend :: SerialInputSignals -> IO Bool
-- | <https://serial.spec.whatwg.org/#dom-serialinputsignals-cleartosend SerialInputSignals.clearToSend specification>
getClearToSend :: (MonadDOM m) => SerialInputSignals -> m Bool
getClearToSend self = liftDOM ((js_getClearToSend (self)))

foreign import javascript safe "(($1, $2) => { $1[\"ringIndicator\"] = $2; })"
        js_setRingIndicator :: SerialInputSignals -> Bool -> IO ()
-- | <https://serial.spec.whatwg.org/#dom-serialinputsignals-ringindicator SerialInputSignals.ringIndicator specification>
setRingIndicator :: (MonadDOM m) => SerialInputSignals -> Bool -> m ()
setRingIndicator self val = liftDOM (void ((js_setRingIndicator (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"ringIndicator\"]; })"
        js_getRingIndicator :: SerialInputSignals -> IO Bool
-- | <https://serial.spec.whatwg.org/#dom-serialinputsignals-ringindicator SerialInputSignals.ringIndicator specification>
getRingIndicator :: (MonadDOM m) => SerialInputSignals -> m Bool
getRingIndicator self = liftDOM ((js_getRingIndicator (self)))

foreign import javascript safe "(($1, $2) => { $1[\"dataSetReady\"] = $2; })"
        js_setDataSetReady :: SerialInputSignals -> Bool -> IO ()
-- | <https://serial.spec.whatwg.org/#dom-serialinputsignals-datasetready SerialInputSignals.dataSetReady specification>
setDataSetReady :: (MonadDOM m) => SerialInputSignals -> Bool -> m ()
setDataSetReady self val = liftDOM (void ((js_setDataSetReady (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"dataSetReady\"]; })"
        js_getDataSetReady :: SerialInputSignals -> IO Bool
-- | <https://serial.spec.whatwg.org/#dom-serialinputsignals-datasetready SerialInputSignals.dataSetReady specification>
getDataSetReady :: (MonadDOM m) => SerialInputSignals -> m Bool
getDataSetReady self = liftDOM ((js_getDataSetReady (self)))