module JSDOM.Generated.URLUtils
(toString, setHref, getHref, getOrigin, setProtocol, getProtocol,
setUsername, getUsername, setPassword, getPassword, setHost,
getHost, setHostname, getHostname, setPort, getPort, setPathname,
getPathname, setSearch, getSearch, setHash, getHash, URLUtils,
castToURLUtils, gTypeURLUtils)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import Data.Typeable (Typeable)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
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)
import JSDOM.Enums
toString ::
(MonadDOM m, FromJSString result) => URLUtils -> m result
toString self
= liftDOM ((self ^. js "toString") >>= fromJSValUnchecked)
setHref :: (MonadDOM m, ToJSString val) => URLUtils -> val -> m ()
setHref self val = liftDOM (self ^. jss "href" (toJSVal val))
getHref ::
(MonadDOM m, FromJSString result) => URLUtils -> m result
getHref self = liftDOM ((self ^. js "href") >>= fromJSValUnchecked)
getOrigin ::
(MonadDOM m, FromJSString result) => URLUtils -> m result
getOrigin self
= liftDOM ((self ^. js "origin") >>= fromJSValUnchecked)
setProtocol ::
(MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()
setProtocol self val
= liftDOM (self ^. jss "protocol" (toJSVal val))
getProtocol ::
(MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)
getProtocol self
= liftDOM ((self ^. js "protocol") >>= fromMaybeJSString)
setUsername ::
(MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()
setUsername self val
= liftDOM (self ^. jss "username" (toJSVal val))
getUsername ::
(MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)
getUsername self
= liftDOM ((self ^. js "username") >>= fromMaybeJSString)
setPassword ::
(MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()
setPassword self val
= liftDOM (self ^. jss "password" (toJSVal val))
getPassword ::
(MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)
getPassword self
= liftDOM ((self ^. js "password") >>= fromMaybeJSString)
setHost ::
(MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()
setHost self val = liftDOM (self ^. jss "host" (toJSVal val))
getHost ::
(MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)
getHost self = liftDOM ((self ^. js "host") >>= fromMaybeJSString)
setHostname ::
(MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()
setHostname self val
= liftDOM (self ^. jss "hostname" (toJSVal val))
getHostname ::
(MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)
getHostname self
= liftDOM ((self ^. js "hostname") >>= fromMaybeJSString)
setPort ::
(MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()
setPort self val = liftDOM (self ^. jss "port" (toJSVal val))
getPort ::
(MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)
getPort self = liftDOM ((self ^. js "port") >>= fromMaybeJSString)
setPathname ::
(MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()
setPathname self val
= liftDOM (self ^. jss "pathname" (toJSVal val))
getPathname ::
(MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)
getPathname self
= liftDOM ((self ^. js "pathname") >>= fromMaybeJSString)
setSearch ::
(MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()
setSearch self val = liftDOM (self ^. jss "search" (toJSVal val))
getSearch ::
(MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)
getSearch self
= liftDOM ((self ^. js "search") >>= fromMaybeJSString)
setHash ::
(MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()
setHash self val = liftDOM (self ^. jss "hash" (toJSVal val))
getHash ::
(MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)
getHash self = liftDOM ((self ^. js "hash") >>= fromMaybeJSString)