module JSDOM.Generated.Storage
(key, getItem, setItem, removeItem, clear, getLength, Storage,
castToStorage, gTypeStorage)
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
key ::
(MonadDOM m, FromJSString result) =>
Storage -> Word -> m (Maybe result)
key self index
= liftDOM
((self ^. jsf "key" [toJSVal index]) >>= fromMaybeJSString)
getItem ::
(MonadDOM m, ToJSString key, FromJSString result) =>
Storage -> key -> m (Maybe result)
getItem self key
= liftDOM
((self ^. jsf "getItem" [toJSVal key]) >>= fromMaybeJSString)
setItem ::
(MonadDOM m, ToJSString key, ToJSString data') =>
Storage -> key -> data' -> m ()
setItem self key data'
= liftDOM
(void (self ^. jsf "setItem" [toJSVal key, toJSVal data']))
removeItem ::
(MonadDOM m, ToJSString key) => Storage -> key -> m ()
removeItem self key
= liftDOM (void (self ^. jsf "removeItem" [toJSVal key]))
clear :: (MonadDOM m) => Storage -> m ()
clear self = liftDOM (void (self ^. js "clear"))
getLength :: (MonadDOM m) => Storage -> m Word
getLength self
= liftDOM (round <$> ((self ^. js "length") >>= valToNumber))