module JSDOM.Generated.TypeConversions
(setTestLong, getTestLong, setTestEnforceRangeLong,
getTestEnforceRangeLong, setTestUnsignedLong, getTestUnsignedLong,
setTestEnforceRangeUnsignedLong, getTestEnforceRangeUnsignedLong,
setTestLongLong, getTestLongLong, setTestEnforceRangeLongLong,
getTestEnforceRangeLongLong, setTestUnsignedLongLong,
getTestUnsignedLongLong, setTestEnforceRangeUnsignedLongLong,
getTestEnforceRangeUnsignedLongLong, setTestByte, getTestByte,
setTestEnforceRangeByte, getTestEnforceRangeByte, setTestOctet,
getTestOctet, setTestEnforceRangeOctet, getTestEnforceRangeOctet,
setTestShort, getTestShort, setTestEnforceRangeShort,
getTestEnforceRangeShort, setTestUnsignedShort,
getTestUnsignedShort, setTestEnforceRangeUnsignedShort,
getTestEnforceRangeUnsignedShort, TypeConversions(..),
gTypeTypeConversions)
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
setTestLong :: (MonadDOM m) => TypeConversions -> Int -> m ()
setTestLong self val
= liftDOM (self ^. jss "testLong" (toJSVal val))
getTestLong :: (MonadDOM m) => TypeConversions -> m Int
getTestLong self
= liftDOM (round <$> ((self ^. js "testLong") >>= valToNumber))
setTestEnforceRangeLong ::
(MonadDOM m) => TypeConversions -> Int -> m ()
setTestEnforceRangeLong self val
= liftDOM (self ^. jss "testEnforceRangeLong" (toJSVal val))
getTestEnforceRangeLong :: (MonadDOM m) => TypeConversions -> m Int
getTestEnforceRangeLong self
= liftDOM
(round <$> ((self ^. js "testEnforceRangeLong") >>= valToNumber))
setTestUnsignedLong ::
(MonadDOM m) => TypeConversions -> Word -> m ()
setTestUnsignedLong self val
= liftDOM (self ^. jss "testUnsignedLong" (toJSVal val))
getTestUnsignedLong :: (MonadDOM m) => TypeConversions -> m Word
getTestUnsignedLong self
= liftDOM
(round <$> ((self ^. js "testUnsignedLong") >>= valToNumber))
setTestEnforceRangeUnsignedLong ::
(MonadDOM m) => TypeConversions -> Word -> m ()
setTestEnforceRangeUnsignedLong self val
= liftDOM
(self ^. jss "testEnforceRangeUnsignedLong" (toJSVal val))
getTestEnforceRangeUnsignedLong ::
(MonadDOM m) => TypeConversions -> m Word
getTestEnforceRangeUnsignedLong self
= liftDOM
(round <$>
((self ^. js "testEnforceRangeUnsignedLong") >>= valToNumber))
setTestLongLong :: (MonadDOM m) => TypeConversions -> Int64 -> m ()
setTestLongLong self val
= liftDOM
(self ^. jss "testLongLong" (integralToDoubleToJSVal val))
getTestLongLong :: (MonadDOM m) => TypeConversions -> m Int64
getTestLongLong self
= liftDOM (round <$> ((self ^. js "testLongLong") >>= valToNumber))
setTestEnforceRangeLongLong ::
(MonadDOM m) => TypeConversions -> Int64 -> m ()
setTestEnforceRangeLongLong self val
= liftDOM
(self ^. jss "testEnforceRangeLongLong"
(integralToDoubleToJSVal val))
getTestEnforceRangeLongLong ::
(MonadDOM m) => TypeConversions -> m Int64
getTestEnforceRangeLongLong self
= liftDOM
(round <$>
((self ^. js "testEnforceRangeLongLong") >>= valToNumber))
setTestUnsignedLongLong ::
(MonadDOM m) => TypeConversions -> Word64 -> m ()
setTestUnsignedLongLong self val
= liftDOM
(self ^. jss "testUnsignedLongLong" (integralToDoubleToJSVal val))
getTestUnsignedLongLong ::
(MonadDOM m) => TypeConversions -> m Word64
getTestUnsignedLongLong self
= liftDOM
(round <$> ((self ^. js "testUnsignedLongLong") >>= valToNumber))
setTestEnforceRangeUnsignedLongLong ::
(MonadDOM m) => TypeConversions -> Word64 -> m ()
setTestEnforceRangeUnsignedLongLong self val
= liftDOM
(self ^. jss "testEnforceRangeUnsignedLongLong"
(integralToDoubleToJSVal val))
getTestEnforceRangeUnsignedLongLong ::
(MonadDOM m) => TypeConversions -> m Word64
getTestEnforceRangeUnsignedLongLong self
= liftDOM
(round <$>
((self ^. js "testEnforceRangeUnsignedLongLong") >>= valToNumber))
setTestByte :: (MonadDOM m) => TypeConversions -> Int -> m ()
setTestByte self val
= liftDOM (self ^. jss "testByte" (toJSVal val))
getTestByte :: (MonadDOM m) => TypeConversions -> m Int
getTestByte self
= liftDOM (round <$> ((self ^. js "testByte") >>= valToNumber))
setTestEnforceRangeByte ::
(MonadDOM m) => TypeConversions -> Int -> m ()
setTestEnforceRangeByte self val
= liftDOM (self ^. jss "testEnforceRangeByte" (toJSVal val))
getTestEnforceRangeByte :: (MonadDOM m) => TypeConversions -> m Int
getTestEnforceRangeByte self
= liftDOM
(round <$> ((self ^. js "testEnforceRangeByte") >>= valToNumber))
setTestOctet :: (MonadDOM m) => TypeConversions -> Word -> m ()
setTestOctet self val
= liftDOM (self ^. jss "testOctet" (toJSVal val))
getTestOctet :: (MonadDOM m) => TypeConversions -> m Word
getTestOctet self
= liftDOM (round <$> ((self ^. js "testOctet") >>= valToNumber))
setTestEnforceRangeOctet ::
(MonadDOM m) => TypeConversions -> Word -> m ()
setTestEnforceRangeOctet self val
= liftDOM (self ^. jss "testEnforceRangeOctet" (toJSVal val))
getTestEnforceRangeOctet ::
(MonadDOM m) => TypeConversions -> m Word
getTestEnforceRangeOctet self
= liftDOM
(round <$> ((self ^. js "testEnforceRangeOctet") >>= valToNumber))
setTestShort :: (MonadDOM m) => TypeConversions -> Int -> m ()
setTestShort self val
= liftDOM (self ^. jss "testShort" (toJSVal val))
getTestShort :: (MonadDOM m) => TypeConversions -> m Int
getTestShort self
= liftDOM (round <$> ((self ^. js "testShort") >>= valToNumber))
setTestEnforceRangeShort ::
(MonadDOM m) => TypeConversions -> Int -> m ()
setTestEnforceRangeShort self val
= liftDOM (self ^. jss "testEnforceRangeShort" (toJSVal val))
getTestEnforceRangeShort ::
(MonadDOM m) => TypeConversions -> m Int
getTestEnforceRangeShort self
= liftDOM
(round <$> ((self ^. js "testEnforceRangeShort") >>= valToNumber))
setTestUnsignedShort ::
(MonadDOM m) => TypeConversions -> Word -> m ()
setTestUnsignedShort self val
= liftDOM (self ^. jss "testUnsignedShort" (toJSVal val))
getTestUnsignedShort :: (MonadDOM m) => TypeConversions -> m Word
getTestUnsignedShort self
= liftDOM
(round <$> ((self ^. js "testUnsignedShort") >>= valToNumber))
setTestEnforceRangeUnsignedShort ::
(MonadDOM m) => TypeConversions -> Word -> m ()
setTestEnforceRangeUnsignedShort self val
= liftDOM
(self ^. jss "testEnforceRangeUnsignedShort" (toJSVal val))
getTestEnforceRangeUnsignedShort ::
(MonadDOM m) => TypeConversions -> m Word
getTestEnforceRangeUnsignedShort self
= liftDOM
(round <$>
((self ^. js "testEnforceRangeUnsignedShort") >>= valToNumber))