ToggleEvent.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module JSDOM.Generated.ToggleEvent
       (newToggleEvent, getOldState, getNewState, getSource, getSourceUnsafe, getSourceUnchecked, ToggleEvent(..), gTypeToggleEvent)
       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/ToggleEvent/ToggleEvent MDN ToggleEvent. documentation>
newToggleEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe ToggleEventInit -> m ToggleEvent
newToggleEvent type' eventInitDict = liftDOM (((new (jsg "ToggleEvent") [toJSVal type', P.maybe (P.return jsUndefined) toJSVal eventInitDict]) >>= fromJSValUnchecked))

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

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

-- | <https://developer.mozilla.org/docs/Web/API/ToggleEvent/source MDN ToggleEvent.source documentation>
getSource :: (MonadDOM m) => ToggleEvent -> m (Maybe Element)
getSource self = liftDOM (((self ^. js "source") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/ToggleEvent/source MDN ToggleEvent.source documentation>
getSourceUnsafe :: (MonadDOM m, HasCallStack) => ToggleEvent -> m Element
getSourceUnsafe self = liftDOM ((((self ^. js "source") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/ToggleEvent/source MDN ToggleEvent.source documentation>
getSourceUnchecked :: (MonadDOM m) => ToggleEvent -> m Element
getSourceUnchecked self = liftDOM (((self ^. js "source") >>= fromJSValUnchecked))