module JSDOM.Generated.CharacterData
(substringData, substringData_, substringDataUnsafe,
substringDataUnchecked, appendData, insertData, deleteData,
replaceData, setData, getData, getDataUnsafe, getDataUnchecked,
getLength, CharacterData(..), gTypeCharacterData, IsCharacterData,
toCharacterData)
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 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
substringData ::
(MonadDOM m, IsCharacterData self, FromJSString result) =>
self -> Word -> Word -> m (Maybe result)
substringData self offset length
= liftDOM
(((toCharacterData self) ^. jsf "substringData"
[toJSVal offset, toJSVal length])
>>= fromMaybeJSString)
substringData_ ::
(MonadDOM m, IsCharacterData self) => self -> Word -> Word -> m ()
substringData_ self offset length
= liftDOM
(void
((toCharacterData self) ^. jsf "substringData"
[toJSVal offset, toJSVal length]))
substringDataUnsafe ::
(MonadDOM m, IsCharacterData self, HasCallStack,
FromJSString result) =>
self -> Word -> Word -> m result
substringDataUnsafe self offset length
= liftDOM
((((toCharacterData self) ^. jsf "substringData"
[toJSVal offset, toJSVal length])
>>= fromMaybeJSString)
>>= maybe (Prelude.error "Nothing to return") return)
substringDataUnchecked ::
(MonadDOM m, IsCharacterData self, FromJSString result) =>
self -> Word -> Word -> m result
substringDataUnchecked self offset length
= liftDOM
(((toCharacterData self) ^. jsf "substringData"
[toJSVal offset, toJSVal length])
>>= fromJSValUnchecked)
appendData ::
(MonadDOM m, IsCharacterData self, ToJSString data') =>
self -> data' -> m ()
appendData self data'
= liftDOM
(void ((toCharacterData self) ^. jsf "appendData" [toJSVal data']))
insertData ::
(MonadDOM m, IsCharacterData self, ToJSString data') =>
self -> Word -> data' -> m ()
insertData self offset data'
= liftDOM
(void
((toCharacterData self) ^. jsf "insertData"
[toJSVal offset, toJSVal data']))
deleteData ::
(MonadDOM m, IsCharacterData self) => self -> Word -> Word -> m ()
deleteData self offset length
= liftDOM
(void
((toCharacterData self) ^. jsf "deleteData"
[toJSVal offset, toJSVal length]))
replaceData ::
(MonadDOM m, IsCharacterData self, ToJSString data') =>
self -> Word -> Word -> data' -> m ()
replaceData self offset length data'
= liftDOM
(void
((toCharacterData self) ^. jsf "replaceData"
[toJSVal offset, toJSVal length, toJSVal data']))
setData ::
(MonadDOM m, IsCharacterData self, ToJSString val) =>
self -> Maybe val -> m ()
setData self val
= liftDOM ((toCharacterData self) ^. jss "data" (toJSVal val))
getData ::
(MonadDOM m, IsCharacterData self, FromJSString result) =>
self -> m (Maybe result)
getData self
= liftDOM
(((toCharacterData self) ^. js "data") >>= fromMaybeJSString)
getDataUnsafe ::
(MonadDOM m, IsCharacterData self, HasCallStack,
FromJSString result) =>
self -> m result
getDataUnsafe self
= liftDOM
((((toCharacterData self) ^. js "data") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getDataUnchecked ::
(MonadDOM m, IsCharacterData self, FromJSString result) =>
self -> m result
getDataUnchecked self
= liftDOM
(((toCharacterData self) ^. js "data") >>= fromJSValUnchecked)
getLength :: (MonadDOM m, IsCharacterData self) => self -> m Word
getLength self
= liftDOM
(round <$>
(((toCharacterData self) ^. js "length") >>= valToNumber))