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

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.Location
       (js_assign, js_reload, js_replace, js_setHref, js_getHref, js_getOrigin, js_setProtocol, js_getProtocol, js_setHost, js_getHost, js_setHostname, js_getHostname, js_setPort, js_getPort, js_setPathname, js_getPathname, js_setSearch, js_getSearch, js_setHash, js_getHash, js_getAncestorOrigins, 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 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, $2) => { return $1[\"assign\"]($2); })"
        js_assign :: Location -> JSString -> IO ()
-- | <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 ((js_assign (self) (toJSString url))))

foreign import javascript safe "(($1) => { return $1[\"reload\"](); })"
        js_reload :: Location -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/Location/reload MDN Location.reload documentation>
reload :: (MonadDOM m) => Location -> m ()
reload self = liftDOM (void ((js_reload (self))))

foreign import javascript safe "(($1, $2) => { return $1[\"replace\"]($2); })"
        js_replace :: Location -> JSString -> IO ()
-- | <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 ((js_replace (self) (toJSString url))))

foreign import javascript safe "(($1, $2) => { $1[\"href\"] = $2; })"
        js_setHref :: Location -> JSString -> IO ()
-- | <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 ((js_setHref (self) (toJSString val))))

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

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

foreign import javascript safe "(($1, $2) => { $1[\"protocol\"] = $2; })"
        js_setProtocol :: Location -> JSString -> IO ()
-- | <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 ((js_setProtocol (self) (toJSString val))))

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

foreign import javascript safe "(($1, $2) => { $1[\"host\"] = $2; })"
        js_setHost :: Location -> JSString -> IO ()
-- | <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 ((js_setHost (self) (toJSString val))))

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

foreign import javascript safe "(($1, $2) => { $1[\"hostname\"] = $2; })"
        js_setHostname :: Location -> JSString -> IO ()
-- | <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 ((js_setHostname (self) (toJSString val))))

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

foreign import javascript safe "(($1, $2) => { $1[\"port\"] = $2; })"
        js_setPort :: Location -> JSString -> IO ()
-- | <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 ((js_setPort (self) (toJSString val))))

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

foreign import javascript safe "(($1, $2) => { $1[\"pathname\"] = $2; })"
        js_setPathname :: Location -> JSString -> IO ()
-- | <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 ((js_setPathname (self) (toJSString val))))

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

foreign import javascript safe "(($1, $2) => { $1[\"search\"] = $2; })"
        js_setSearch :: Location -> JSString -> IO ()
-- | <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 ((js_setSearch (self) (toJSString val))))

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

foreign import javascript safe "(($1, $2) => { $1[\"hash\"] = $2; })"
        js_setHash :: Location -> JSString -> IO ()
-- | <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 ((js_setHash (self) (toJSString val))))

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

foreign import javascript unsafe "(($1) => { return $1[\"ancestorOrigins\"]; })"
        js_getAncestorOrigins :: Location -> IO DOMStringList
-- | <https://developer.mozilla.org/docs/Web/API/Location/ancestorOrigins MDN Location.ancestorOrigins documentation>
getAncestorOrigins :: (MonadDOM m) => Location -> m DOMStringList
getAncestorOrigins self = liftDOM ((js_getAncestorOrigins (self)))