Location.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module JSDOM.Generated.Location
       (assign, reload, replace, setHref, getHref, getOrigin, setProtocol, getProtocol, setHost, getHost, setHostname, getHostname, setPort, getPort, setPathname, getPathname, setSearch, getSearch, setHash, getHash, getAncestorOrigins, Location(..), gTypeLocation)
       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://developer.mozilla.org/docs/Web/API/Location/assign MDN Location.assign documentation>
assign :: (MonadDOM m, ToJSString url) => Location -> url -> m ()
assign self url = liftDOM (void (self ^. jsf "assign" [toJSVal url]))

-- | <https://developer.mozilla.org/docs/Web/API/Location/reload MDN Location.reload documentation>
reload :: (MonadDOM m) => Location -> m ()
reload self = liftDOM (void (self ^. jsf "reload" ()))

-- | <https://developer.mozilla.org/docs/Web/API/Location/replace MDN Location.replace documentation>
replace :: (MonadDOM m, ToJSString url) => Location -> url -> m ()
replace self url = liftDOM (void (self ^. jsf "replace" [toJSVal url]))

-- | <https://developer.mozilla.org/docs/Web/API/Location/href MDN Location.href documentation>
setHref :: (MonadDOM m, ToJSString val) => Location -> val -> m ()
setHref self val = liftDOM (void (self ^. jss "href" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/Location/href MDN Location.href documentation>
getHref :: (MonadDOM m, FromJSString result) => Location -> m result
getHref self = liftDOM (((self ^. js "href") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Location/origin MDN Location.origin documentation>
getOrigin :: (MonadDOM m, FromJSString result) => Location -> m result
getOrigin self = liftDOM (((self ^. js "origin") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Location/protocol MDN Location.protocol documentation>
setProtocol :: (MonadDOM m, ToJSString val) => Location -> val -> m ()
setProtocol self val = liftDOM (void (self ^. jss "protocol" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/Location/protocol MDN Location.protocol documentation>
getProtocol :: (MonadDOM m, FromJSString result) => Location -> m result
getProtocol self = liftDOM (((self ^. js "protocol") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Location/host MDN Location.host documentation>
setHost :: (MonadDOM m, ToJSString val) => Location -> val -> m ()
setHost self val = liftDOM (void (self ^. jss "host" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/Location/host MDN Location.host documentation>
getHost :: (MonadDOM m, FromJSString result) => Location -> m result
getHost self = liftDOM (((self ^. js "host") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Location/hostname MDN Location.hostname documentation>
setHostname :: (MonadDOM m, ToJSString val) => Location -> val -> m ()
setHostname self val = liftDOM (void (self ^. jss "hostname" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/Location/hostname MDN Location.hostname documentation>
getHostname :: (MonadDOM m, FromJSString result) => Location -> m result
getHostname self = liftDOM (((self ^. js "hostname") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Location/port MDN Location.port documentation>
setPort :: (MonadDOM m, ToJSString val) => Location -> val -> m ()
setPort self val = liftDOM (void (self ^. jss "port" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/Location/port MDN Location.port documentation>
getPort :: (MonadDOM m, FromJSString result) => Location -> m result
getPort self = liftDOM (((self ^. js "port") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Location/pathname MDN Location.pathname documentation>
setPathname :: (MonadDOM m, ToJSString val) => Location -> val -> m ()
setPathname self val = liftDOM (void (self ^. jss "pathname" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/Location/pathname MDN Location.pathname documentation>
getPathname :: (MonadDOM m, FromJSString result) => Location -> m result
getPathname self = liftDOM (((self ^. js "pathname") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Location/search MDN Location.search documentation>
setSearch :: (MonadDOM m, ToJSString val) => Location -> val -> m ()
setSearch self val = liftDOM (void (self ^. jss "search" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/Location/search MDN Location.search documentation>
getSearch :: (MonadDOM m, FromJSString result) => Location -> m result
getSearch self = liftDOM (((self ^. js "search") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Location/hash MDN Location.hash documentation>
setHash :: (MonadDOM m, ToJSString val) => Location -> val -> m ()
setHash self val = liftDOM (void (self ^. jss "hash" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/Location/hash MDN Location.hash documentation>
getHash :: (MonadDOM m, FromJSString result) => Location -> m result
getHash self = liftDOM (((self ^. js "hash") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Location/ancestorOrigins MDN Location.ancestorOrigins documentation>
getAncestorOrigins :: (MonadDOM m) => Location -> m DOMStringList
getAncestorOrigins self = liftDOM (((self ^. js "ancestorOrigins") >>= fromJSValUnchecked))