History.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.History
       (js_back, js_forward, js_go, js_pushState, js_replaceState, js_getLength, js_setScrollRestoration, js_getScrollRestoration, js_getState, back, forward, go, pushState, replaceState, getLength, setScrollRestoration, getScrollRestoration, getState, History(..), gTypeHistory)
       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 $1[\"back\"](); })"
        js_back :: History -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/History/back MDN History.back documentation>
back :: (MonadDOM m) => History -> m ()
back self = liftDOM (void ((js_back (self))))

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

foreign import javascript safe "(($1, $2) => { return $1[\"go\"]($2); })"
        js_go :: History -> JSVal -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/History/go MDN History.go documentation>
go :: (MonadDOM m) => History -> Maybe Int -> m ()
go self delta = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal delta) >>= \a2' -> js_go (self) a2')))

foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"pushState\"]($2, $3, $4); })"
        js_pushState :: History -> JSVal -> JSString -> (Nullable JSString) -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/History/pushState MDN History.pushState documentation>
pushState :: (MonadDOM m, ToJSString unused, ToJSString url) => History -> JSVal -> unused -> Maybe url -> m ()
pushState self data' unused url = liftDOM (void ((js_pushState (self) (data') (toJSString unused) (toMaybeJSString url))))

foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"replaceState\"]($2, $3, $4); })"
        js_replaceState :: History -> JSVal -> JSString -> (Nullable JSString) -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/History/replaceState MDN History.replaceState documentation>
replaceState :: (MonadDOM m, ToJSString unused, ToJSString url) => History -> JSVal -> unused -> Maybe url -> m ()
replaceState self data' unused url = liftDOM (void ((js_replaceState (self) (data') (toJSString unused) (toMaybeJSString url))))

foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })"
        js_getLength :: History -> IO Word
-- | <https://developer.mozilla.org/docs/Web/API/History/length MDN History.length documentation>
getLength :: (MonadDOM m) => History -> m Word
getLength self = liftDOM ((js_getLength (self)))

foreign import javascript safe "(($1, $2) => { $1[\"scrollRestoration\"] = $2; })"
        js_setScrollRestoration :: History -> JSVal -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/History/scrollRestoration MDN History.scrollRestoration documentation>
setScrollRestoration :: (MonadDOM m) => History -> ScrollRestoration -> m ()
setScrollRestoration self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setScrollRestoration (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"scrollRestoration\"]; })"
        js_getScrollRestoration :: History -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/History/scrollRestoration MDN History.scrollRestoration documentation>
getScrollRestoration :: (MonadDOM m) => History -> m ScrollRestoration
getScrollRestoration self = liftDOM (((js_getScrollRestoration (self)) >>= fromJSValUnchecked))

foreign import javascript unsafe "(($1) => { return $1[\"state\"]; })"
        js_getState :: History -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/History/state MDN History.state documentation>
getState :: (MonadDOM m) => History -> m JSVal
getState self = liftDOM ((js_getState (self)))