TextEvent.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from uievents (webref). Do not edit.
module JSDOM.Generated.TextEvent
       (initTextEvent, getData, TextEvent(..), gTypeTextEvent)
       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://developer.mozilla.org/docs/Web/API/TextEvent/initTextEvent MDN TextEvent.initTextEvent documentation>
initTextEvent :: (MonadDOM m, ToJSString type', ToJSString data') => TextEvent -> type' -> Maybe Bool -> Maybe Bool -> Maybe Window -> Maybe data' -> m ()
initTextEvent self type' bubbles cancelable view data' = liftDOM (void (self ^. jsf "initTextEvent" [toJSVal type', P.maybe (P.return jsUndefined) toJSVal bubbles, P.maybe (P.return jsUndefined) toJSVal cancelable, toJSVal view, P.maybe (P.return jsUndefined) toJSVal data']))

-- | <https://developer.mozilla.org/docs/Web/API/TextEvent/data MDN TextEvent.data documentation>
getData :: (MonadDOM m, FromJSString result) => TextEvent -> m result
getData self = liftDOM (((self ^. js "data") >>= fromJSValUnchecked))