{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.HTMLTableElement
(createTHead, createTHead_, deleteTHead, createTFoot, createTFoot_,
deleteTFoot, createTBody, createTBody_, createCaption,
createCaption_, deleteCaption, insertRow, insertRow_, deleteRow,
setCaption, getCaption, getCaptionUnsafe, getCaptionUnchecked,
setTHead, getTHead, getTHeadUnsafe, getTHeadUnchecked, setTFoot,
getTFoot, getTFootUnsafe, getTFootUnchecked, getRows, getTBodies,
setAlign, getAlign, setBgColor, getBgColor, setBorder, getBorder,
setCellPadding, getCellPadding, setCellSpacing, getCellSpacing,
setFrame, getFrame, setRules, getRules, setSummary, getSummary,
setWidth, getWidth, HTMLTableElement(..), gTypeHTMLTableElement)
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
createTHead :: (MonadDOM m) => HTMLTableElement -> m HTMLElement
createTHead :: forall (m :: * -> *).
MonadDOM m =>
HTMLTableElement -> m HTMLElement
createTHead HTMLTableElement
self
= DOM HTMLElement -> m HTMLElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (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
"createTHead" ()) JSM JSVal -> (JSVal -> DOM HTMLElement) -> DOM HTMLElement
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 HTMLElement
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createTHead_ :: (MonadDOM m) => HTMLTableElement -> m ()
createTHead_ :: forall (m :: * -> *). MonadDOM m => HTMLTableElement -> m ()
createTHead_ HTMLTableElement
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 (HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (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
"createTHead" ()))
deleteTHead :: (MonadDOM m) => HTMLTableElement -> m ()
deleteTHead :: forall (m :: * -> *). MonadDOM m => HTMLTableElement -> m ()
deleteTHead HTMLTableElement
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 (HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (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
"deleteTHead" ()))
createTFoot :: (MonadDOM m) => HTMLTableElement -> m HTMLElement
HTMLTableElement
self
= DOM HTMLElement -> m HTMLElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (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
"createTFoot" ()) JSM JSVal -> (JSVal -> DOM HTMLElement) -> DOM HTMLElement
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 HTMLElement
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createTFoot_ :: (MonadDOM m) => HTMLTableElement -> m ()
HTMLTableElement
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 (HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (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
"createTFoot" ()))
deleteTFoot :: (MonadDOM m) => HTMLTableElement -> m ()
HTMLTableElement
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 (HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (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
"deleteTFoot" ()))
createTBody :: (MonadDOM m) => HTMLTableElement -> m HTMLElement
createTBody :: forall (m :: * -> *).
MonadDOM m =>
HTMLTableElement -> m HTMLElement
createTBody HTMLTableElement
self
= DOM HTMLElement -> m HTMLElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (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
"createTBody" ()) JSM JSVal -> (JSVal -> DOM HTMLElement) -> DOM HTMLElement
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 HTMLElement
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createTBody_ :: (MonadDOM m) => HTMLTableElement -> m ()
createTBody_ :: forall (m :: * -> *). MonadDOM m => HTMLTableElement -> m ()
createTBody_ HTMLTableElement
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 (HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (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
"createTBody" ()))
createCaption :: (MonadDOM m) => HTMLTableElement -> m HTMLElement
createCaption :: forall (m :: * -> *).
MonadDOM m =>
HTMLTableElement -> m HTMLElement
createCaption HTMLTableElement
self
= DOM HTMLElement -> m HTMLElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (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
"createCaption" ()) JSM JSVal -> (JSVal -> DOM HTMLElement) -> DOM HTMLElement
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 HTMLElement
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createCaption_ :: (MonadDOM m) => HTMLTableElement -> m ()
createCaption_ :: forall (m :: * -> *). MonadDOM m => HTMLTableElement -> m ()
createCaption_ HTMLTableElement
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 (HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (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
"createCaption" ()))
deleteCaption :: (MonadDOM m) => HTMLTableElement -> m ()
deleteCaption :: forall (m :: * -> *). MonadDOM m => HTMLTableElement -> m ()
deleteCaption HTMLTableElement
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 (HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (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
"deleteCaption" ()))
insertRow ::
(MonadDOM m) => HTMLTableElement -> Maybe Int -> m HTMLElement
insertRow :: forall (m :: * -> *).
MonadDOM m =>
HTMLTableElement -> Maybe Int -> m HTMLElement
insertRow HTMLTableElement
self Maybe Int
index
= DOM HTMLElement -> m HTMLElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (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
"insertRow" [Maybe Int -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Int
index]) JSM JSVal -> (JSVal -> DOM HTMLElement) -> DOM HTMLElement
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 HTMLElement
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
insertRow_ :: (MonadDOM m) => HTMLTableElement -> Maybe Int -> m ()
insertRow_ :: forall (m :: * -> *).
MonadDOM m =>
HTMLTableElement -> Maybe Int -> m ()
insertRow_ HTMLTableElement
self Maybe Int
index
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (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
"insertRow" [Maybe Int -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Int
index]))
deleteRow :: (MonadDOM m) => HTMLTableElement -> Int -> m ()
deleteRow :: forall (m :: * -> *). MonadDOM m => HTMLTableElement -> Int -> m ()
deleteRow HTMLTableElement
self Int
index
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (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
"deleteRow" [Int -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Int
index]))
setCaption ::
(MonadDOM m) =>
HTMLTableElement -> Maybe HTMLTableCaptionElement -> m ()
setCaption :: forall (m :: * -> *).
MonadDOM m =>
HTMLTableElement -> Maybe HTMLTableCaptionElement -> m ()
setCaption HTMLTableElement
self Maybe HTMLTableCaptionElement
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLTableElement
self HTMLTableElement
-> Getting (DOM ()) HTMLTableElement (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
"caption" (Maybe HTMLTableCaptionElement -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe HTMLTableCaptionElement
val))
getCaption ::
(MonadDOM m) =>
HTMLTableElement -> m (Maybe HTMLTableCaptionElement)
getCaption :: forall (m :: * -> *).
MonadDOM m =>
HTMLTableElement -> m (Maybe HTMLTableCaptionElement)
getCaption HTMLTableElement
self = DOM (Maybe HTMLTableCaptionElement)
-> m (Maybe HTMLTableCaptionElement)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLTableElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"caption") JSM JSVal
-> (JSVal -> DOM (Maybe HTMLTableCaptionElement))
-> DOM (Maybe HTMLTableCaptionElement)
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 (Maybe HTMLTableCaptionElement)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
getCaptionUnsafe ::
(MonadDOM m, HasCallStack) =>
HTMLTableElement -> m HTMLTableCaptionElement
getCaptionUnsafe :: forall (m :: * -> *).
(MonadDOM m, HasCallStack) =>
HTMLTableElement -> m HTMLTableCaptionElement
getCaptionUnsafe HTMLTableElement
self
= DOM HTMLTableCaptionElement -> m HTMLTableCaptionElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLTableElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"caption") JSM JSVal
-> (JSVal -> DOM (Maybe HTMLTableCaptionElement))
-> DOM (Maybe HTMLTableCaptionElement)
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 (Maybe HTMLTableCaptionElement)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe HTMLTableCaptionElement)
-> (Maybe HTMLTableCaptionElement -> DOM HTMLTableCaptionElement)
-> DOM HTMLTableCaptionElement
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM HTMLTableCaptionElement
-> (HTMLTableCaptionElement -> DOM HTMLTableCaptionElement)
-> Maybe HTMLTableCaptionElement
-> DOM HTMLTableCaptionElement
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (String -> DOM HTMLTableCaptionElement
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") HTMLTableCaptionElement -> DOM HTMLTableCaptionElement
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
getCaptionUnchecked ::
(MonadDOM m) => HTMLTableElement -> m HTMLTableCaptionElement
getCaptionUnchecked :: forall (m :: * -> *).
MonadDOM m =>
HTMLTableElement -> m HTMLTableCaptionElement
getCaptionUnchecked HTMLTableElement
self
= DOM HTMLTableCaptionElement -> m HTMLTableCaptionElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLTableElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"caption") JSM JSVal
-> (JSVal -> DOM HTMLTableCaptionElement)
-> DOM HTMLTableCaptionElement
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 HTMLTableCaptionElement
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setTHead ::
(MonadDOM m) =>
HTMLTableElement -> Maybe HTMLTableSectionElement -> m ()
setTHead :: forall (m :: * -> *).
MonadDOM m =>
HTMLTableElement -> Maybe HTMLTableSectionElement -> m ()
setTHead HTMLTableElement
self Maybe HTMLTableSectionElement
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLTableElement
self HTMLTableElement
-> Getting (DOM ()) HTMLTableElement (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
"tHead" (Maybe HTMLTableSectionElement -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe HTMLTableSectionElement
val))
getTHead ::
(MonadDOM m) =>
HTMLTableElement -> m (Maybe HTMLTableSectionElement)
getTHead :: forall (m :: * -> *).
MonadDOM m =>
HTMLTableElement -> m (Maybe HTMLTableSectionElement)
getTHead HTMLTableElement
self = DOM (Maybe HTMLTableSectionElement)
-> m (Maybe HTMLTableSectionElement)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLTableElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"tHead") JSM JSVal
-> (JSVal -> DOM (Maybe HTMLTableSectionElement))
-> DOM (Maybe HTMLTableSectionElement)
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 (Maybe HTMLTableSectionElement)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
getTHeadUnsafe ::
(MonadDOM m, HasCallStack) =>
HTMLTableElement -> m HTMLTableSectionElement
getTHeadUnsafe :: forall (m :: * -> *).
(MonadDOM m, HasCallStack) =>
HTMLTableElement -> m HTMLTableSectionElement
getTHeadUnsafe HTMLTableElement
self
= DOM HTMLTableSectionElement -> m HTMLTableSectionElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLTableElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"tHead") JSM JSVal
-> (JSVal -> DOM (Maybe HTMLTableSectionElement))
-> DOM (Maybe HTMLTableSectionElement)
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 (Maybe HTMLTableSectionElement)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe HTMLTableSectionElement)
-> (Maybe HTMLTableSectionElement -> DOM HTMLTableSectionElement)
-> DOM HTMLTableSectionElement
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM HTMLTableSectionElement
-> (HTMLTableSectionElement -> DOM HTMLTableSectionElement)
-> Maybe HTMLTableSectionElement
-> DOM HTMLTableSectionElement
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (String -> DOM HTMLTableSectionElement
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") HTMLTableSectionElement -> DOM HTMLTableSectionElement
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
getTHeadUnchecked ::
(MonadDOM m) => HTMLTableElement -> m HTMLTableSectionElement
getTHeadUnchecked :: forall (m :: * -> *).
MonadDOM m =>
HTMLTableElement -> m HTMLTableSectionElement
getTHeadUnchecked HTMLTableElement
self
= DOM HTMLTableSectionElement -> m HTMLTableSectionElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLTableElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"tHead") JSM JSVal
-> (JSVal -> DOM HTMLTableSectionElement)
-> DOM HTMLTableSectionElement
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 HTMLTableSectionElement
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setTFoot ::
(MonadDOM m) =>
HTMLTableElement -> Maybe HTMLTableSectionElement -> m ()
HTMLTableElement
self Maybe HTMLTableSectionElement
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLTableElement
self HTMLTableElement
-> Getting (DOM ()) HTMLTableElement (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
"tFoot" (Maybe HTMLTableSectionElement -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe HTMLTableSectionElement
val))
getTFoot ::
(MonadDOM m) =>
HTMLTableElement -> m (Maybe HTMLTableSectionElement)
HTMLTableElement
self = DOM (Maybe HTMLTableSectionElement)
-> m (Maybe HTMLTableSectionElement)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLTableElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"tFoot") JSM JSVal
-> (JSVal -> DOM (Maybe HTMLTableSectionElement))
-> DOM (Maybe HTMLTableSectionElement)
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 (Maybe HTMLTableSectionElement)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
getTFootUnsafe ::
(MonadDOM m, HasCallStack) =>
HTMLTableElement -> m HTMLTableSectionElement
HTMLTableElement
self
= DOM HTMLTableSectionElement -> m HTMLTableSectionElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLTableElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"tFoot") JSM JSVal
-> (JSVal -> DOM (Maybe HTMLTableSectionElement))
-> DOM (Maybe HTMLTableSectionElement)
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 (Maybe HTMLTableSectionElement)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe HTMLTableSectionElement)
-> (Maybe HTMLTableSectionElement -> DOM HTMLTableSectionElement)
-> DOM HTMLTableSectionElement
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM HTMLTableSectionElement
-> (HTMLTableSectionElement -> DOM HTMLTableSectionElement)
-> Maybe HTMLTableSectionElement
-> DOM HTMLTableSectionElement
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (String -> DOM HTMLTableSectionElement
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") HTMLTableSectionElement -> DOM HTMLTableSectionElement
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
getTFootUnchecked ::
(MonadDOM m) => HTMLTableElement -> m HTMLTableSectionElement
HTMLTableElement
self
= DOM HTMLTableSectionElement -> m HTMLTableSectionElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLTableElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"tFoot") JSM JSVal
-> (JSVal -> DOM HTMLTableSectionElement)
-> DOM HTMLTableSectionElement
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 HTMLTableSectionElement
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getRows :: (MonadDOM m) => HTMLTableElement -> m HTMLCollection
getRows :: forall (m :: * -> *).
MonadDOM m =>
HTMLTableElement -> m HTMLCollection
getRows HTMLTableElement
self = DOM HTMLCollection -> m HTMLCollection
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLTableElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"rows") JSM JSVal -> (JSVal -> DOM HTMLCollection) -> DOM HTMLCollection
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 HTMLCollection
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getTBodies :: (MonadDOM m) => HTMLTableElement -> m HTMLCollection
getTBodies :: forall (m :: * -> *).
MonadDOM m =>
HTMLTableElement -> m HTMLCollection
getTBodies HTMLTableElement
self
= DOM HTMLCollection -> m HTMLCollection
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLTableElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"tBodies") JSM JSVal -> (JSVal -> DOM HTMLCollection) -> DOM HTMLCollection
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 HTMLCollection
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setAlign ::
(MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()
setAlign :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLTableElement -> val -> m ()
setAlign HTMLTableElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLTableElement
self HTMLTableElement
-> Getting (DOM ()) HTMLTableElement (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
"align" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getAlign ::
(MonadDOM m, FromJSString result) => HTMLTableElement -> m result
getAlign :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLTableElement -> m result
getAlign HTMLTableElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLTableElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"align") 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)
setBgColor ::
(MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()
setBgColor :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLTableElement -> val -> m ()
setBgColor HTMLTableElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLTableElement
self HTMLTableElement
-> Getting (DOM ()) HTMLTableElement (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
"bgColor" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getBgColor ::
(MonadDOM m, FromJSString result) => HTMLTableElement -> m result
getBgColor :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLTableElement -> m result
getBgColor HTMLTableElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLTableElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"bgColor") 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)
setBorder ::
(MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()
setBorder :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLTableElement -> val -> m ()
setBorder HTMLTableElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLTableElement
self HTMLTableElement
-> Getting (DOM ()) HTMLTableElement (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
"border" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getBorder ::
(MonadDOM m, FromJSString result) => HTMLTableElement -> m result
getBorder :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLTableElement -> m result
getBorder HTMLTableElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLTableElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"border") 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)
setCellPadding ::
(MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()
setCellPadding :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLTableElement -> val -> m ()
setCellPadding HTMLTableElement
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLTableElement
self HTMLTableElement
-> Getting (DOM ()) HTMLTableElement (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
"cellPadding" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getCellPadding ::
(MonadDOM m, FromJSString result) => HTMLTableElement -> m result
getCellPadding :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLTableElement -> m result
getCellPadding HTMLTableElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLTableElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"cellPadding") 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)
setCellSpacing ::
(MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()
setCellSpacing :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLTableElement -> val -> m ()
setCellSpacing HTMLTableElement
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLTableElement
self HTMLTableElement
-> Getting (DOM ()) HTMLTableElement (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
"cellSpacing" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getCellSpacing ::
(MonadDOM m, FromJSString result) => HTMLTableElement -> m result
getCellSpacing :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLTableElement -> m result
getCellSpacing HTMLTableElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLTableElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"cellSpacing") 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)
setFrame ::
(MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()
setFrame :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLTableElement -> val -> m ()
setFrame HTMLTableElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLTableElement
self HTMLTableElement
-> Getting (DOM ()) HTMLTableElement (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
"frame" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getFrame ::
(MonadDOM m, FromJSString result) => HTMLTableElement -> m result
getFrame :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLTableElement -> m result
getFrame HTMLTableElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLTableElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"frame") 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)
setRules ::
(MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()
setRules :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLTableElement -> val -> m ()
setRules HTMLTableElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLTableElement
self HTMLTableElement
-> Getting (DOM ()) HTMLTableElement (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
"rules" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getRules ::
(MonadDOM m, FromJSString result) => HTMLTableElement -> m result
getRules :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLTableElement -> m result
getRules HTMLTableElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLTableElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"rules") 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)
setSummary ::
(MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()
setSummary :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLTableElement -> val -> m ()
setSummary HTMLTableElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLTableElement
self HTMLTableElement
-> Getting (DOM ()) HTMLTableElement (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
"summary" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getSummary ::
(MonadDOM m, FromJSString result) => HTMLTableElement -> m result
getSummary :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLTableElement -> m result
getSummary HTMLTableElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLTableElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"summary") 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)
setWidth ::
(MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()
setWidth :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLTableElement -> val -> m ()
setWidth HTMLTableElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLTableElement
self HTMLTableElement
-> Getting (DOM ()) HTMLTableElement (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
"width" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getWidth ::
(MonadDOM m, FromJSString result) => HTMLTableElement -> m result
getWidth :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLTableElement -> m result
getWidth HTMLTableElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableElement
self HTMLTableElement
-> Getting (JSM JSVal) HTMLTableElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLTableElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"width") 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)