ClipboardUnsanitizedFormats.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from clipboard-apis (webref). Do not edit.
module JSDOM.Generated.ClipboardUnsanitizedFormats
       (newClipboardUnsanitizedFormats, setUnsanitized, getUnsanitized, getUnsanitizedUnsafe, getUnsanitizedUnchecked, ClipboardUnsanitizedFormats(..), gTypeClipboardUnsanitizedFormats)
       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://w3c.github.io/clipboard-apis/#dictdef-clipboardunsanitizedformats ClipboardUnsanitizedFormats specification>
newClipboardUnsanitizedFormats :: (MonadDOM m) => m ClipboardUnsanitizedFormats
newClipboardUnsanitizedFormats = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/clipboard-apis/#dom-clipboardunsanitizedformats-unsanitized ClipboardUnsanitizedFormats.unsanitized specification>
setUnsanitized :: (MonadDOM m, ToJSString val) => ClipboardUnsanitizedFormats -> [val] -> m ()
setUnsanitized self val = liftDOM (void (self ^. jss "unsanitized" (toJSVal val)))

-- | <https://w3c.github.io/clipboard-apis/#dom-clipboardunsanitizedformats-unsanitized ClipboardUnsanitizedFormats.unsanitized specification>
getUnsanitized :: (MonadDOM m, FromJSString result) => ClipboardUnsanitizedFormats -> m (Maybe [result])
getUnsanitized self = liftDOM (((self ^. js "unsanitized") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/clipboard-apis/#dom-clipboardunsanitizedformats-unsanitized ClipboardUnsanitizedFormats.unsanitized specification>
getUnsanitizedUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => ClipboardUnsanitizedFormats -> m [result]
getUnsanitizedUnsafe self = liftDOM ((((self ^. js "unsanitized") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/clipboard-apis/#dom-clipboardunsanitizedformats-unsanitized ClipboardUnsanitizedFormats.unsanitized specification>
getUnsanitizedUnchecked :: (MonadDOM m, FromJSString result) => ClipboardUnsanitizedFormats -> m [result]
getUnsanitizedUnchecked self = liftDOM (((self ^. js "unsanitized") >>= fromJSValUnchecked))