jsaddle-dom-0.10.0.0: src/JSDOM/Generated/URLPatternResult.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from urlpattern (webref). Do not edit.
module JSDOM.Generated.URLPatternResult
       (newURLPatternResult, setInputs, getInputs, getInputsUnsafe, getInputsUnchecked, setProtocol, getProtocol, getProtocolUnsafe, getProtocolUnchecked, setUsername, getUsername, getUsernameUnsafe, getUsernameUnchecked, setPassword, getPassword, getPasswordUnsafe, getPasswordUnchecked, setHostname, getHostname, getHostnameUnsafe, getHostnameUnchecked, setPort, getPort, getPortUnsafe, getPortUnchecked, setPathname, getPathname, getPathnameUnsafe, getPathnameUnchecked, setSearch, getSearch, getSearchUnsafe, getSearchUnchecked, setHash, getHash, getHashUnsafe, getHashUnchecked, URLPatternResult(..), gTypeURLPatternResult)
       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://urlpattern.spec.whatwg.org/#dictdef-urlpatternresult URLPatternResult specification>
newURLPatternResult :: (MonadDOM m) => m URLPatternResult
newURLPatternResult = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-inputs URLPatternResult.inputs specification>
setInputs :: (MonadDOM m, IsURLPatternInput val) => URLPatternResult -> [val] -> m ()
setInputs self val = liftDOM (void (self ^. jss "inputs" (toJSVal val)))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-inputs URLPatternResult.inputs specification>
getInputs :: (MonadDOM m) => URLPatternResult -> m (Maybe [URLPatternInput])
getInputs self = liftDOM (((self ^. js "inputs") >>= fromJSValUnchecked))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-inputs URLPatternResult.inputs specification>
getInputsUnsafe :: (MonadDOM m, HasCallStack) => URLPatternResult -> m [URLPatternInput]
getInputsUnsafe self = liftDOM ((((self ^. js "inputs") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-inputs URLPatternResult.inputs specification>
getInputsUnchecked :: (MonadDOM m) => URLPatternResult -> m [URLPatternInput]
getInputsUnchecked self = liftDOM (((self ^. js "inputs") >>= fromJSValUnchecked))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-protocol URLPatternResult.protocol specification>
setProtocol :: (MonadDOM m) => URLPatternResult -> URLPatternComponentResult -> m ()
setProtocol self val = liftDOM (void (self ^. jss "protocol" (toJSVal val)))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-protocol URLPatternResult.protocol specification>
getProtocol :: (MonadDOM m) => URLPatternResult -> m (Maybe URLPatternComponentResult)
getProtocol self = liftDOM (((self ^. js "protocol") >>= fromJSValUnchecked))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-protocol URLPatternResult.protocol specification>
getProtocolUnsafe :: (MonadDOM m, HasCallStack) => URLPatternResult -> m URLPatternComponentResult
getProtocolUnsafe self = liftDOM ((((self ^. js "protocol") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-protocol URLPatternResult.protocol specification>
getProtocolUnchecked :: (MonadDOM m) => URLPatternResult -> m URLPatternComponentResult
getProtocolUnchecked self = liftDOM (((self ^. js "protocol") >>= fromJSValUnchecked))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-username URLPatternResult.username specification>
setUsername :: (MonadDOM m) => URLPatternResult -> URLPatternComponentResult -> m ()
setUsername self val = liftDOM (void (self ^. jss "username" (toJSVal val)))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-username URLPatternResult.username specification>
getUsername :: (MonadDOM m) => URLPatternResult -> m (Maybe URLPatternComponentResult)
getUsername self = liftDOM (((self ^. js "username") >>= fromJSValUnchecked))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-username URLPatternResult.username specification>
getUsernameUnsafe :: (MonadDOM m, HasCallStack) => URLPatternResult -> m URLPatternComponentResult
getUsernameUnsafe self = liftDOM ((((self ^. js "username") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-username URLPatternResult.username specification>
getUsernameUnchecked :: (MonadDOM m) => URLPatternResult -> m URLPatternComponentResult
getUsernameUnchecked self = liftDOM (((self ^. js "username") >>= fromJSValUnchecked))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-password URLPatternResult.password specification>
setPassword :: (MonadDOM m) => URLPatternResult -> URLPatternComponentResult -> m ()
setPassword self val = liftDOM (void (self ^. jss "password" (toJSVal val)))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-password URLPatternResult.password specification>
getPassword :: (MonadDOM m) => URLPatternResult -> m (Maybe URLPatternComponentResult)
getPassword self = liftDOM (((self ^. js "password") >>= fromJSValUnchecked))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-password URLPatternResult.password specification>
getPasswordUnsafe :: (MonadDOM m, HasCallStack) => URLPatternResult -> m URLPatternComponentResult
getPasswordUnsafe self = liftDOM ((((self ^. js "password") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-password URLPatternResult.password specification>
getPasswordUnchecked :: (MonadDOM m) => URLPatternResult -> m URLPatternComponentResult
getPasswordUnchecked self = liftDOM (((self ^. js "password") >>= fromJSValUnchecked))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-hostname URLPatternResult.hostname specification>
setHostname :: (MonadDOM m) => URLPatternResult -> URLPatternComponentResult -> m ()
setHostname self val = liftDOM (void (self ^. jss "hostname" (toJSVal val)))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-hostname URLPatternResult.hostname specification>
getHostname :: (MonadDOM m) => URLPatternResult -> m (Maybe URLPatternComponentResult)
getHostname self = liftDOM (((self ^. js "hostname") >>= fromJSValUnchecked))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-hostname URLPatternResult.hostname specification>
getHostnameUnsafe :: (MonadDOM m, HasCallStack) => URLPatternResult -> m URLPatternComponentResult
getHostnameUnsafe self = liftDOM ((((self ^. js "hostname") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-hostname URLPatternResult.hostname specification>
getHostnameUnchecked :: (MonadDOM m) => URLPatternResult -> m URLPatternComponentResult
getHostnameUnchecked self = liftDOM (((self ^. js "hostname") >>= fromJSValUnchecked))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-port URLPatternResult.port specification>
setPort :: (MonadDOM m) => URLPatternResult -> URLPatternComponentResult -> m ()
setPort self val = liftDOM (void (self ^. jss "port" (toJSVal val)))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-port URLPatternResult.port specification>
getPort :: (MonadDOM m) => URLPatternResult -> m (Maybe URLPatternComponentResult)
getPort self = liftDOM (((self ^. js "port") >>= fromJSValUnchecked))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-port URLPatternResult.port specification>
getPortUnsafe :: (MonadDOM m, HasCallStack) => URLPatternResult -> m URLPatternComponentResult
getPortUnsafe self = liftDOM ((((self ^. js "port") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-port URLPatternResult.port specification>
getPortUnchecked :: (MonadDOM m) => URLPatternResult -> m URLPatternComponentResult
getPortUnchecked self = liftDOM (((self ^. js "port") >>= fromJSValUnchecked))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-pathname URLPatternResult.pathname specification>
setPathname :: (MonadDOM m) => URLPatternResult -> URLPatternComponentResult -> m ()
setPathname self val = liftDOM (void (self ^. jss "pathname" (toJSVal val)))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-pathname URLPatternResult.pathname specification>
getPathname :: (MonadDOM m) => URLPatternResult -> m (Maybe URLPatternComponentResult)
getPathname self = liftDOM (((self ^. js "pathname") >>= fromJSValUnchecked))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-pathname URLPatternResult.pathname specification>
getPathnameUnsafe :: (MonadDOM m, HasCallStack) => URLPatternResult -> m URLPatternComponentResult
getPathnameUnsafe self = liftDOM ((((self ^. js "pathname") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-pathname URLPatternResult.pathname specification>
getPathnameUnchecked :: (MonadDOM m) => URLPatternResult -> m URLPatternComponentResult
getPathnameUnchecked self = liftDOM (((self ^. js "pathname") >>= fromJSValUnchecked))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-search URLPatternResult.search specification>
setSearch :: (MonadDOM m) => URLPatternResult -> URLPatternComponentResult -> m ()
setSearch self val = liftDOM (void (self ^. jss "search" (toJSVal val)))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-search URLPatternResult.search specification>
getSearch :: (MonadDOM m) => URLPatternResult -> m (Maybe URLPatternComponentResult)
getSearch self = liftDOM (((self ^. js "search") >>= fromJSValUnchecked))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-search URLPatternResult.search specification>
getSearchUnsafe :: (MonadDOM m, HasCallStack) => URLPatternResult -> m URLPatternComponentResult
getSearchUnsafe self = liftDOM ((((self ^. js "search") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-search URLPatternResult.search specification>
getSearchUnchecked :: (MonadDOM m) => URLPatternResult -> m URLPatternComponentResult
getSearchUnchecked self = liftDOM (((self ^. js "search") >>= fromJSValUnchecked))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-hash URLPatternResult.hash specification>
setHash :: (MonadDOM m) => URLPatternResult -> URLPatternComponentResult -> m ()
setHash self val = liftDOM (void (self ^. jss "hash" (toJSVal val)))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-hash URLPatternResult.hash specification>
getHash :: (MonadDOM m) => URLPatternResult -> m (Maybe URLPatternComponentResult)
getHash self = liftDOM (((self ^. js "hash") >>= fromJSValUnchecked))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-hash URLPatternResult.hash specification>
getHashUnsafe :: (MonadDOM m, HasCallStack) => URLPatternResult -> m URLPatternComponentResult
getHashUnsafe self = liftDOM ((((self ^. js "hash") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatternresult-hash URLPatternResult.hash specification>
getHashUnchecked :: (MonadDOM m) => URLPatternResult -> m URLPatternComponentResult
getHashUnchecked self = liftDOM (((self ^. js "hash") >>= fromJSValUnchecked))