ghcjs-dom-javascript-0.10.0.0: src/GHCJS/DOM/JSFFI/Generated/URLPatternInit.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from urlpattern (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.URLPatternInit
       (js_newURLPatternInit, js_setProtocol, js_getProtocol, js_setUsername, js_getUsername, js_setPassword, js_getPassword, js_setHostname, js_getHostname, js_setPort, js_getPort, js_setPathname, js_getPathname, js_setSearch, js_getSearch, js_setHash, js_getHash, js_setBaseURL, js_getBaseURL, newURLPatternInit, 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, setBaseURL, getBaseURL, getBaseURLUnsafe, getBaseURLUnchecked, URLPatternInit(..), gTypeURLPatternInit)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(() => { return ({}); })"
        js_newURLPatternInit :: IO URLPatternInit
-- | <https://urlpattern.spec.whatwg.org/#dictdef-urlpatterninit URLPatternInit specification>
newURLPatternInit :: (MonadDOM m) => m URLPatternInit
newURLPatternInit = liftDOM ((js_newURLPatternInit))

foreign import javascript safe "(($1, $2) => { $1[\"protocol\"] = $2; })"
        js_setProtocol :: URLPatternInit -> JSString -> IO ()
-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-protocol URLPatternInit.protocol specification>
setProtocol :: (MonadDOM m, ToJSString val) => URLPatternInit -> val -> m ()
setProtocol self val = liftDOM (void ((js_setProtocol (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"protocol\"]; })"
        js_getProtocol :: URLPatternInit -> IO JSVal
-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-protocol URLPatternInit.protocol specification>
getProtocol :: (MonadDOM m, FromJSString result) => URLPatternInit -> m (Maybe result)
getProtocol self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getProtocol (self))))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-protocol URLPatternInit.protocol specification>
getProtocolUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => URLPatternInit -> m result
getProtocolUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getProtocol (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-protocol URLPatternInit.protocol specification>
getProtocolUnchecked :: (MonadDOM m, FromJSString result) => URLPatternInit -> m result
getProtocolUnchecked self = liftDOM ((pFromJSVal <$> (js_getProtocol (self))))

foreign import javascript safe "(($1, $2) => { $1[\"username\"] = $2; })"
        js_setUsername :: URLPatternInit -> JSString -> IO ()
-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-username URLPatternInit.username specification>
setUsername :: (MonadDOM m, ToJSString val) => URLPatternInit -> val -> m ()
setUsername self val = liftDOM (void ((js_setUsername (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"username\"]; })"
        js_getUsername :: URLPatternInit -> IO JSVal
-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-username URLPatternInit.username specification>
getUsername :: (MonadDOM m, FromJSString result) => URLPatternInit -> m (Maybe result)
getUsername self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getUsername (self))))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-username URLPatternInit.username specification>
getUsernameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => URLPatternInit -> m result
getUsernameUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getUsername (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-username URLPatternInit.username specification>
getUsernameUnchecked :: (MonadDOM m, FromJSString result) => URLPatternInit -> m result
getUsernameUnchecked self = liftDOM ((pFromJSVal <$> (js_getUsername (self))))

foreign import javascript safe "(($1, $2) => { $1[\"password\"] = $2; })"
        js_setPassword :: URLPatternInit -> JSString -> IO ()
-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-password URLPatternInit.password specification>
setPassword :: (MonadDOM m, ToJSString val) => URLPatternInit -> val -> m ()
setPassword self val = liftDOM (void ((js_setPassword (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"password\"]; })"
        js_getPassword :: URLPatternInit -> IO JSVal
-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-password URLPatternInit.password specification>
getPassword :: (MonadDOM m, FromJSString result) => URLPatternInit -> m (Maybe result)
getPassword self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPassword (self))))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-password URLPatternInit.password specification>
getPasswordUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => URLPatternInit -> m result
getPasswordUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPassword (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-password URLPatternInit.password specification>
getPasswordUnchecked :: (MonadDOM m, FromJSString result) => URLPatternInit -> m result
getPasswordUnchecked self = liftDOM ((pFromJSVal <$> (js_getPassword (self))))

foreign import javascript safe "(($1, $2) => { $1[\"hostname\"] = $2; })"
        js_setHostname :: URLPatternInit -> JSString -> IO ()
-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-hostname URLPatternInit.hostname specification>
setHostname :: (MonadDOM m, ToJSString val) => URLPatternInit -> val -> m ()
setHostname self val = liftDOM (void ((js_setHostname (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"hostname\"]; })"
        js_getHostname :: URLPatternInit -> IO JSVal
-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-hostname URLPatternInit.hostname specification>
getHostname :: (MonadDOM m, FromJSString result) => URLPatternInit -> m (Maybe result)
getHostname self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getHostname (self))))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-hostname URLPatternInit.hostname specification>
getHostnameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => URLPatternInit -> m result
getHostnameUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getHostname (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-hostname URLPatternInit.hostname specification>
getHostnameUnchecked :: (MonadDOM m, FromJSString result) => URLPatternInit -> m result
getHostnameUnchecked self = liftDOM ((pFromJSVal <$> (js_getHostname (self))))

foreign import javascript safe "(($1, $2) => { $1[\"port\"] = $2; })"
        js_setPort :: URLPatternInit -> JSString -> IO ()
-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-port URLPatternInit.port specification>
setPort :: (MonadDOM m, ToJSString val) => URLPatternInit -> val -> m ()
setPort self val = liftDOM (void ((js_setPort (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"port\"]; })"
        js_getPort :: URLPatternInit -> IO JSVal
-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-port URLPatternInit.port specification>
getPort :: (MonadDOM m, FromJSString result) => URLPatternInit -> m (Maybe result)
getPort self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPort (self))))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-port URLPatternInit.port specification>
getPortUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => URLPatternInit -> m result
getPortUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPort (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-port URLPatternInit.port specification>
getPortUnchecked :: (MonadDOM m, FromJSString result) => URLPatternInit -> m result
getPortUnchecked self = liftDOM ((pFromJSVal <$> (js_getPort (self))))

foreign import javascript safe "(($1, $2) => { $1[\"pathname\"] = $2; })"
        js_setPathname :: URLPatternInit -> JSString -> IO ()
-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-pathname URLPatternInit.pathname specification>
setPathname :: (MonadDOM m, ToJSString val) => URLPatternInit -> val -> m ()
setPathname self val = liftDOM (void ((js_setPathname (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"pathname\"]; })"
        js_getPathname :: URLPatternInit -> IO JSVal
-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-pathname URLPatternInit.pathname specification>
getPathname :: (MonadDOM m, FromJSString result) => URLPatternInit -> m (Maybe result)
getPathname self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPathname (self))))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-pathname URLPatternInit.pathname specification>
getPathnameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => URLPatternInit -> m result
getPathnameUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPathname (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-pathname URLPatternInit.pathname specification>
getPathnameUnchecked :: (MonadDOM m, FromJSString result) => URLPatternInit -> m result
getPathnameUnchecked self = liftDOM ((pFromJSVal <$> (js_getPathname (self))))

foreign import javascript safe "(($1, $2) => { $1[\"search\"] = $2; })"
        js_setSearch :: URLPatternInit -> JSString -> IO ()
-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-search URLPatternInit.search specification>
setSearch :: (MonadDOM m, ToJSString val) => URLPatternInit -> val -> m ()
setSearch self val = liftDOM (void ((js_setSearch (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"search\"]; })"
        js_getSearch :: URLPatternInit -> IO JSVal
-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-search URLPatternInit.search specification>
getSearch :: (MonadDOM m, FromJSString result) => URLPatternInit -> m (Maybe result)
getSearch self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getSearch (self))))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-search URLPatternInit.search specification>
getSearchUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => URLPatternInit -> m result
getSearchUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getSearch (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-search URLPatternInit.search specification>
getSearchUnchecked :: (MonadDOM m, FromJSString result) => URLPatternInit -> m result
getSearchUnchecked self = liftDOM ((pFromJSVal <$> (js_getSearch (self))))

foreign import javascript safe "(($1, $2) => { $1[\"hash\"] = $2; })"
        js_setHash :: URLPatternInit -> JSString -> IO ()
-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-hash URLPatternInit.hash specification>
setHash :: (MonadDOM m, ToJSString val) => URLPatternInit -> val -> m ()
setHash self val = liftDOM (void ((js_setHash (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"hash\"]; })"
        js_getHash :: URLPatternInit -> IO JSVal
-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-hash URLPatternInit.hash specification>
getHash :: (MonadDOM m, FromJSString result) => URLPatternInit -> m (Maybe result)
getHash self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getHash (self))))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-hash URLPatternInit.hash specification>
getHashUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => URLPatternInit -> m result
getHashUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getHash (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-hash URLPatternInit.hash specification>
getHashUnchecked :: (MonadDOM m, FromJSString result) => URLPatternInit -> m result
getHashUnchecked self = liftDOM ((pFromJSVal <$> (js_getHash (self))))

foreign import javascript safe "(($1, $2) => { $1[\"baseURL\"] = $2; })"
        js_setBaseURL :: URLPatternInit -> JSString -> IO ()
-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-baseurl URLPatternInit.baseURL specification>
setBaseURL :: (MonadDOM m, ToJSString val) => URLPatternInit -> val -> m ()
setBaseURL self val = liftDOM (void ((js_setBaseURL (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"baseURL\"]; })"
        js_getBaseURL :: URLPatternInit -> IO JSVal
-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-baseurl URLPatternInit.baseURL specification>
getBaseURL :: (MonadDOM m, FromJSString result) => URLPatternInit -> m (Maybe result)
getBaseURL self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getBaseURL (self))))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-baseurl URLPatternInit.baseURL specification>
getBaseURLUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => URLPatternInit -> m result
getBaseURLUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getBaseURL (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://urlpattern.spec.whatwg.org/#dom-urlpatterninit-baseurl URLPatternInit.baseURL specification>
getBaseURLUnchecked :: (MonadDOM m, FromJSString result) => URLPatternInit -> m result
getBaseURLUnchecked self = liftDOM ((pFromJSVal <$> (js_getBaseURL (self))))