MIDIMessageEventInit.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from webmidi (webref). Do not edit.
module JSDOM.Generated.MIDIMessageEventInit
       (newMIDIMessageEventInit, setData, getData, getDataUnsafe, getDataUnchecked, MIDIMessageEventInit(..), gTypeMIDIMessageEventInit)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

-- | <https://webaudio.github.io/web-midi-api/#dom-midimessageeventinit MIDIMessageEventInit specification>
newMIDIMessageEventInit :: (MonadDOM m) => m MIDIMessageEventInit
newMIDIMessageEventInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://webaudio.github.io/web-midi-api/#dom-midimessageeventinit-data MIDIMessageEventInit.data specification>
setData :: (MonadDOM m, IsUint8Array val) => MIDIMessageEventInit -> val -> m ()
setData self val = liftDOM (void (self ^. jss "data" (toJSVal val)))

-- | <https://webaudio.github.io/web-midi-api/#dom-midimessageeventinit-data MIDIMessageEventInit.data specification>
getData :: (MonadDOM m) => MIDIMessageEventInit -> m (Maybe Uint8Array)
getData self = liftDOM (((self ^. js "data") >>= fromJSValUnchecked))

-- | <https://webaudio.github.io/web-midi-api/#dom-midimessageeventinit-data MIDIMessageEventInit.data specification>
getDataUnsafe :: (MonadDOM m, HasCallStack) => MIDIMessageEventInit -> m Uint8Array
getDataUnsafe self = liftDOM ((((self ^. js "data") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://webaudio.github.io/web-midi-api/#dom-midimessageeventinit-data MIDIMessageEventInit.data specification>
getDataUnchecked :: (MonadDOM m) => MIDIMessageEventInit -> m Uint8Array
getDataUnchecked self = liftDOM (((self ^. js "data") >>= fromJSValUnchecked))