{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.URL
(newURL, newURL', newURL'', toJSON, toJSON_, createObjectURL,
createObjectURL_, revokeObjectURL, createObjectURLSource,
createObjectURLSource_, setHref, getHref, getOrigin, setProtocol,
getProtocol, setUsername, getUsername, setPassword, getPassword,
setHost, getHost, setHostname, getHostname, setPort, getPort,
setPathname, getPathname, setHash, getHash, setSearch, getSearch,
getSearchParams, URL(..), gTypeURL)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Enums
newURL :: (MonadDOM m, ToJSString url) => url -> m URL
newURL :: forall (m :: * -> *) url.
(MonadDOM m, ToJSString url) =>
url -> m URL
newURL url
url = DOM URL -> m URL
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSVal -> URL
URL (JSVal -> URL) -> JSM JSVal -> DOM URL
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> JSM JSVal -> [JSM JSVal] -> JSM JSVal
forall constructor args.
(MakeObject constructor, MakeArgs args) =>
constructor -> args -> JSM JSVal
new (String -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg String
"URL") [url -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal url
url])
newURL' ::
(MonadDOM m, ToJSString url, ToJSString base) =>
url -> base -> m URL
newURL' :: forall (m :: * -> *) url base.
(MonadDOM m, ToJSString url, ToJSString base) =>
url -> base -> m URL
newURL' url
url base
base
= DOM URL -> m URL
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSVal -> URL
URL (JSVal -> URL) -> JSM JSVal -> DOM URL
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> JSM JSVal -> [JSM JSVal] -> JSM JSVal
forall constructor args.
(MakeObject constructor, MakeArgs args) =>
constructor -> args -> JSM JSVal
new (String -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg String
"URL") [url -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal url
url, base -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal base
base])
newURL'' :: (MonadDOM m, ToJSString url) => url -> URL -> m URL
newURL'' :: forall (m :: * -> *) url.
(MonadDOM m, ToJSString url) =>
url -> URL -> m URL
newURL'' url
url URL
base
= DOM URL -> m URL
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSVal -> URL
URL (JSVal -> URL) -> JSM JSVal -> DOM URL
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> JSM JSVal -> [JSM JSVal] -> JSM JSVal
forall constructor args.
(MakeObject constructor, MakeArgs args) =>
constructor -> args -> JSM JSVal
new (String -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg String
"URL") [url -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal url
url, URL -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal URL
base])
toJSON :: (MonadDOM m, FromJSString result) => URL -> m result
toJSON :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
URL -> m result
toJSON URL
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((URL
self URL -> Getting (JSM JSVal) URL (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"toJSON" ()) JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
toJSON_ :: (MonadDOM m) => URL -> m ()
toJSON_ :: forall (m :: * -> *). MonadDOM m => URL -> m ()
toJSON_ URL
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (URL
self URL -> Getting (JSM JSVal) URL (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"toJSON" ()))
createObjectURL ::
(MonadDOM m, IsBlob blob, FromJSString result) => blob -> m result
createObjectURL :: forall (m :: * -> *) blob result.
(MonadDOM m, IsBlob blob, FromJSString result) =>
blob -> m result
createObjectURL blob
blob
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((String -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg String
"URL") JSM JSVal
-> Getting (JSM JSVal) (JSM JSVal) (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"createObjectURL" [blob -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal blob
blob]) JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createObjectURL_ :: (MonadDOM m, IsBlob blob) => blob -> m ()
createObjectURL_ :: forall (m :: * -> *) blob.
(MonadDOM m, IsBlob blob) =>
blob -> m ()
createObjectURL_ blob
blob
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void ((String -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg String
"URL") JSM JSVal
-> Getting (JSM JSVal) (JSM JSVal) (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"createObjectURL" [blob -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal blob
blob]))
revokeObjectURL :: (MonadDOM m, ToJSString url) => url -> m ()
revokeObjectURL :: forall (m :: * -> *) url.
(MonadDOM m, ToJSString url) =>
url -> m ()
revokeObjectURL url
url
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void ((String -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg String
"URL") JSM JSVal
-> Getting (JSM JSVal) (JSM JSVal) (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"revokeObjectURL" [url -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal url
url]))
createObjectURLSource ::
(MonadDOM m, FromJSString result) => MediaSource -> m result
createObjectURLSource :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
MediaSource -> m result
createObjectURLSource MediaSource
source
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((String -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg String
"URL") JSM JSVal
-> Getting (JSM JSVal) (JSM JSVal) (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"createObjectURL" [MediaSource -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal MediaSource
source]) JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createObjectURLSource_ :: (MonadDOM m) => MediaSource -> m ()
createObjectURLSource_ :: forall (m :: * -> *). MonadDOM m => MediaSource -> m ()
createObjectURLSource_ MediaSource
source
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void ((String -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg String
"URL") JSM JSVal
-> Getting (JSM JSVal) (JSM JSVal) (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"createObjectURL" [MediaSource -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal MediaSource
source]))
setHref :: (MonadDOM m, ToJSString val) => URL -> val -> m ()
setHref :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
URL -> val -> m ()
setHref URL
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (URL
self URL -> Getting (DOM ()) URL (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"href" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getHref :: (MonadDOM m, FromJSString result) => URL -> m result
getHref :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
URL -> m result
getHref URL
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((URL
self URL -> Getting (JSM JSVal) URL (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter URL (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"href") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getOrigin :: (MonadDOM m, FromJSString result) => URL -> m result
getOrigin :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
URL -> m result
getOrigin URL
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((URL
self URL -> Getting (JSM JSVal) URL (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter URL (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"origin") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setProtocol :: (MonadDOM m, ToJSString val) => URL -> val -> m ()
setProtocol :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
URL -> val -> m ()
setProtocol URL
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (URL
self URL -> Getting (DOM ()) URL (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"protocol" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getProtocol :: (MonadDOM m, FromJSString result) => URL -> m result
getProtocol :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
URL -> m result
getProtocol URL
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((URL
self URL -> Getting (JSM JSVal) URL (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter URL (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"protocol") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setUsername :: (MonadDOM m, ToJSString val) => URL -> val -> m ()
setUsername :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
URL -> val -> m ()
setUsername URL
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (URL
self URL -> Getting (DOM ()) URL (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"username" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getUsername :: (MonadDOM m, FromJSString result) => URL -> m result
getUsername :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
URL -> m result
getUsername URL
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((URL
self URL -> Getting (JSM JSVal) URL (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter URL (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"username") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setPassword :: (MonadDOM m, ToJSString val) => URL -> val -> m ()
setPassword :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
URL -> val -> m ()
setPassword URL
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (URL
self URL -> Getting (DOM ()) URL (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"password" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getPassword :: (MonadDOM m, FromJSString result) => URL -> m result
getPassword :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
URL -> m result
getPassword URL
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((URL
self URL -> Getting (JSM JSVal) URL (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter URL (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"password") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setHost :: (MonadDOM m, ToJSString val) => URL -> val -> m ()
setHost :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
URL -> val -> m ()
setHost URL
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (URL
self URL -> Getting (DOM ()) URL (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"host" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getHost :: (MonadDOM m, FromJSString result) => URL -> m result
getHost :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
URL -> m result
getHost URL
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((URL
self URL -> Getting (JSM JSVal) URL (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter URL (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"host") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setHostname :: (MonadDOM m, ToJSString val) => URL -> val -> m ()
setHostname :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
URL -> val -> m ()
setHostname URL
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (URL
self URL -> Getting (DOM ()) URL (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"hostname" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getHostname :: (MonadDOM m, FromJSString result) => URL -> m result
getHostname :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
URL -> m result
getHostname URL
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((URL
self URL -> Getting (JSM JSVal) URL (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter URL (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"hostname") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setPort :: (MonadDOM m, ToJSString val) => URL -> val -> m ()
setPort :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
URL -> val -> m ()
setPort URL
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (URL
self URL -> Getting (DOM ()) URL (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"port" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getPort :: (MonadDOM m, FromJSString result) => URL -> m result
getPort :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
URL -> m result
getPort URL
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((URL
self URL -> Getting (JSM JSVal) URL (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter URL (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"port") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setPathname :: (MonadDOM m, ToJSString val) => URL -> val -> m ()
setPathname :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
URL -> val -> m ()
setPathname URL
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (URL
self URL -> Getting (DOM ()) URL (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"pathname" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getPathname :: (MonadDOM m, FromJSString result) => URL -> m result
getPathname :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
URL -> m result
getPathname URL
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((URL
self URL -> Getting (JSM JSVal) URL (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter URL (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"pathname") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setHash :: (MonadDOM m, ToJSString val) => URL -> val -> m ()
setHash :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
URL -> val -> m ()
setHash URL
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (URL
self URL -> Getting (DOM ()) URL (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"hash" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getHash :: (MonadDOM m, FromJSString result) => URL -> m result
getHash :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
URL -> m result
getHash URL
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((URL
self URL -> Getting (JSM JSVal) URL (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter URL (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"hash") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setSearch :: (MonadDOM m, ToJSString val) => URL -> val -> m ()
setSearch :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
URL -> val -> m ()
setSearch URL
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (URL
self URL -> Getting (DOM ()) URL (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"search" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getSearch :: (MonadDOM m, FromJSString result) => URL -> m result
getSearch :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
URL -> m result
getSearch URL
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((URL
self URL -> Getting (JSM JSVal) URL (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter URL (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"search") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getSearchParams :: (MonadDOM m) => URL -> m URLSearchParams
getSearchParams :: forall (m :: * -> *). MonadDOM m => URL -> m URLSearchParams
getSearchParams URL
self
= DOM URLSearchParams -> m URLSearchParams
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((URL
self URL -> Getting (JSM JSVal) URL (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter URL (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"searchParams") JSM JSVal -> (JSVal -> DOM URLSearchParams) -> DOM URLSearchParams
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM URLSearchParams
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)