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

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from url (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.URL
       (js_newURL, js_newURL', js_toJSON, js_canParse, js_createObjectURL, js_parse, js_revokeObjectURL, js_setHref, js_getHref, js_getOrigin, js_setProtocol, js_getProtocol, js_setUsername, js_getUsername, js_setPassword, js_getPassword, js_setHost, js_getHost, js_setHostname, js_getHostname, js_setPort, js_getPort, js_setPathname, js_getPathname, js_setSearch, js_getSearch, js_getSearchParams, js_setHash, js_getHash, newURL, newURL', toJSON, toJSON_, canParse, canParse_, createObjectURL, createObjectURL_, parse, parse_, parseUnsafe, parseUnchecked, revokeObjectURL, setHref, getHref, getOrigin, setProtocol, getProtocol, setUsername, getUsername, setPassword, getPassword, setHost, getHost, setHostname, getHostname, setPort, getPort, setPathname, getPathname, setSearch, getSearch, getSearchParams, setHash, getHash, URL(..), gTypeURL)
       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 "(($1) => { return new globalThis[\"URL\"]($1); })"
        js_newURL :: JSString -> IO URL
-- | <https://developer.mozilla.org/docs/Web/API/URL/URL MDN URL. documentation>
newURL :: (MonadDOM m, ToJSString url) => url -> m URL
newURL url = liftDOM ((js_newURL (toJSString url)))

foreign import javascript safe "(($1, $2) => { return new globalThis[\"URL\"]($1, $2); })"
        js_newURL' :: JSString -> (Optional JSString) -> IO URL
-- | <https://developer.mozilla.org/docs/Web/API/URL/URL MDN URL. documentation>
newURL' :: (MonadDOM m, ToJSString url, ToJSString base) => url -> Maybe base -> m URL
newURL' url base = liftDOM ((js_newURL' (toJSString url) (toOptionalJSString base)))

foreign import javascript safe "(($1) => { return $1[\"toJSON\"](); })"
        js_toJSON :: URL -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/URL/toJSON MDN URL.toJSON documentation>
toJSON :: (MonadDOM m, FromJSString result) => URL -> m result
toJSON self = liftDOM ((fromJSString <$> (js_toJSON (self))))

-- | <https://developer.mozilla.org/docs/Web/API/URL/toJSON MDN URL.toJSON documentation>
toJSON_ :: (MonadDOM m) => URL -> m ()
toJSON_ self = liftDOM (void ((js_toJSON (self))))

foreign import javascript safe "(($1, $2) => { return globalThis[\"URL\"][\"canParse\"]($1, $2); })"
        js_canParse :: JSString -> (Optional JSString) -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/URL/canParse_static MDN URL.canParse documentation>
canParse :: (MonadDOM m, ToJSString url, ToJSString base) => url -> Maybe base -> m Bool
canParse url base = liftDOM ((js_canParse (toJSString url) (toOptionalJSString base)))

-- | <https://developer.mozilla.org/docs/Web/API/URL/canParse_static MDN URL.canParse documentation>
canParse_ :: (MonadDOM m, ToJSString url, ToJSString base) => url -> Maybe base -> m ()
canParse_ url base = liftDOM (void ((js_canParse (toJSString url) (toOptionalJSString base))))

foreign import javascript safe "(($1) => { return globalThis[\"URL\"][\"createObjectURL\"]($1); })"
        js_createObjectURL :: BlobOrMediaSource -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/URL/createObjectURL_static MDN URL.createObjectURL documentation>
createObjectURL :: (MonadDOM m, IsBlobOrMediaSource obj, FromJSString result) => obj -> m result
createObjectURL obj = liftDOM ((fromJSString <$> (js_createObjectURL (Types.toBlobOrMediaSource obj))))

-- | <https://developer.mozilla.org/docs/Web/API/URL/createObjectURL_static MDN URL.createObjectURL documentation>
createObjectURL_ :: (MonadDOM m, IsBlobOrMediaSource obj) => obj -> m ()
createObjectURL_ obj = liftDOM (void ((js_createObjectURL (Types.toBlobOrMediaSource obj))))

foreign import javascript safe "(($1, $2) => { return globalThis[\"URL\"][\"parse\"]($1, $2); })"
        js_parse :: JSString -> (Optional JSString) -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/URL/parse_static MDN URL.parse documentation>
parse :: (MonadDOM m, ToJSString url, ToJSString base) => url -> Maybe base -> m (Maybe URL)
parse url base = liftDOM (((js_parse (toJSString url) (toOptionalJSString base)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/URL/parse_static MDN URL.parse documentation>
parse_ :: (MonadDOM m, ToJSString url, ToJSString base) => url -> Maybe base -> m ()
parse_ url base = liftDOM (void ((js_parse (toJSString url) (toOptionalJSString base))))

-- | <https://developer.mozilla.org/docs/Web/API/URL/parse_static MDN URL.parse documentation>
parseUnsafe :: (MonadDOM m, ToJSString url, ToJSString base, HasCallStack) => url -> Maybe base -> m URL
parseUnsafe url base = liftDOM ((((js_parse (toJSString url) (toOptionalJSString base)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/URL/parse_static MDN URL.parse documentation>
parseUnchecked :: (MonadDOM m, ToJSString url, ToJSString base) => url -> Maybe base -> m URL
parseUnchecked url base = liftDOM ((pFromJSVal <$> (js_parse (toJSString url) (toOptionalJSString base))))

foreign import javascript safe "(($1) => { return globalThis[\"URL\"][\"revokeObjectURL\"]($1); })"
        js_revokeObjectURL :: JSString -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/URL/revokeObjectURL_static MDN URL.revokeObjectURL documentation>
revokeObjectURL :: (MonadDOM m, ToJSString url) => url -> m ()
revokeObjectURL url = liftDOM (void ((js_revokeObjectURL (toJSString url))))

foreign import javascript safe "(($1, $2) => { $1[\"href\"] = $2; })"
        js_setHref :: URL -> JSString -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/URL/href MDN URL.href documentation>
setHref :: (MonadDOM m, ToJSString val) => URL -> val -> m ()
setHref self val = liftDOM (void ((js_setHref (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"href\"]; })"
        js_getHref :: URL -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/URL/href MDN URL.href documentation>
getHref :: (MonadDOM m, FromJSString result) => URL -> m result
getHref self = liftDOM ((fromJSString <$> (js_getHref (self))))

foreign import javascript unsafe "(($1) => { return $1[\"origin\"]; })"
        js_getOrigin :: URL -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/URL/origin MDN URL.origin documentation>
getOrigin :: (MonadDOM m, FromJSString result) => URL -> m result
getOrigin self = liftDOM ((fromJSString <$> (js_getOrigin (self))))

foreign import javascript safe "(($1, $2) => { $1[\"protocol\"] = $2; })"
        js_setProtocol :: URL -> JSString -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/URL/protocol MDN URL.protocol documentation>
setProtocol :: (MonadDOM m, ToJSString val) => URL -> val -> m ()
setProtocol self val = liftDOM (void ((js_setProtocol (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"protocol\"]; })"
        js_getProtocol :: URL -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/URL/protocol MDN URL.protocol documentation>
getProtocol :: (MonadDOM m, FromJSString result) => URL -> m result
getProtocol self = liftDOM ((fromJSString <$> (js_getProtocol (self))))

foreign import javascript safe "(($1, $2) => { $1[\"username\"] = $2; })"
        js_setUsername :: URL -> JSString -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/URL/username MDN URL.username documentation>
setUsername :: (MonadDOM m, ToJSString val) => URL -> val -> m ()
setUsername self val = liftDOM (void ((js_setUsername (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"username\"]; })"
        js_getUsername :: URL -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/URL/username MDN URL.username documentation>
getUsername :: (MonadDOM m, FromJSString result) => URL -> m result
getUsername self = liftDOM ((fromJSString <$> (js_getUsername (self))))

foreign import javascript safe "(($1, $2) => { $1[\"password\"] = $2; })"
        js_setPassword :: URL -> JSString -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/URL/password MDN URL.password documentation>
setPassword :: (MonadDOM m, ToJSString val) => URL -> val -> m ()
setPassword self val = liftDOM (void ((js_setPassword (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"password\"]; })"
        js_getPassword :: URL -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/URL/password MDN URL.password documentation>
getPassword :: (MonadDOM m, FromJSString result) => URL -> m result
getPassword self = liftDOM ((fromJSString <$> (js_getPassword (self))))

foreign import javascript safe "(($1, $2) => { $1[\"host\"] = $2; })"
        js_setHost :: URL -> JSString -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/URL/host MDN URL.host documentation>
setHost :: (MonadDOM m, ToJSString val) => URL -> val -> m ()
setHost self val = liftDOM (void ((js_setHost (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"host\"]; })"
        js_getHost :: URL -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/URL/host MDN URL.host documentation>
getHost :: (MonadDOM m, FromJSString result) => URL -> m result
getHost self = liftDOM ((fromJSString <$> (js_getHost (self))))

foreign import javascript safe "(($1, $2) => { $1[\"hostname\"] = $2; })"
        js_setHostname :: URL -> JSString -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/URL/hostname MDN URL.hostname documentation>
setHostname :: (MonadDOM m, ToJSString val) => URL -> val -> m ()
setHostname self val = liftDOM (void ((js_setHostname (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"hostname\"]; })"
        js_getHostname :: URL -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/URL/hostname MDN URL.hostname documentation>
getHostname :: (MonadDOM m, FromJSString result) => URL -> m result
getHostname self = liftDOM ((fromJSString <$> (js_getHostname (self))))

foreign import javascript safe "(($1, $2) => { $1[\"port\"] = $2; })"
        js_setPort :: URL -> JSString -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/URL/port MDN URL.port documentation>
setPort :: (MonadDOM m, ToJSString val) => URL -> val -> m ()
setPort self val = liftDOM (void ((js_setPort (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"port\"]; })"
        js_getPort :: URL -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/URL/port MDN URL.port documentation>
getPort :: (MonadDOM m, FromJSString result) => URL -> m result
getPort self = liftDOM ((fromJSString <$> (js_getPort (self))))

foreign import javascript safe "(($1, $2) => { $1[\"pathname\"] = $2; })"
        js_setPathname :: URL -> JSString -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/URL/pathname MDN URL.pathname documentation>
setPathname :: (MonadDOM m, ToJSString val) => URL -> val -> m ()
setPathname self val = liftDOM (void ((js_setPathname (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"pathname\"]; })"
        js_getPathname :: URL -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/URL/pathname MDN URL.pathname documentation>
getPathname :: (MonadDOM m, FromJSString result) => URL -> m result
getPathname self = liftDOM ((fromJSString <$> (js_getPathname (self))))

foreign import javascript safe "(($1, $2) => { $1[\"search\"] = $2; })"
        js_setSearch :: URL -> JSString -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/URL/search MDN URL.search documentation>
setSearch :: (MonadDOM m, ToJSString val) => URL -> val -> m ()
setSearch self val = liftDOM (void ((js_setSearch (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"search\"]; })"
        js_getSearch :: URL -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/URL/search MDN URL.search documentation>
getSearch :: (MonadDOM m, FromJSString result) => URL -> m result
getSearch self = liftDOM ((fromJSString <$> (js_getSearch (self))))

foreign import javascript unsafe "(($1) => { return $1[\"searchParams\"]; })"
        js_getSearchParams :: URL -> IO URLSearchParams
-- | <https://developer.mozilla.org/docs/Web/API/URL/searchParams MDN URL.searchParams documentation>
getSearchParams :: (MonadDOM m) => URL -> m URLSearchParams
getSearchParams self = liftDOM ((js_getSearchParams (self)))

foreign import javascript safe "(($1, $2) => { $1[\"hash\"] = $2; })"
        js_setHash :: URL -> JSString -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/URL/hash MDN URL.hash documentation>
setHash :: (MonadDOM m, ToJSString val) => URL -> val -> m ()
setHash self val = liftDOM (void ((js_setHash (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"hash\"]; })"
        js_getHash :: URL -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/URL/hash MDN URL.hash documentation>
getHash :: (MonadDOM m, FromJSString result) => URL -> m result
getHash self = liftDOM ((fromJSString <$> (js_getHash (self))))