module JSDOM.Generated.Blob
(newBlob, newBlob', slice, slice_, sliceUnsafe, sliceUnchecked,
getSize, getType, Blob(..), gTypeBlob, IsBlob, toBlob)
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
newBlob :: (MonadDOM m) => m Blob
newBlob = liftDOM (Blob <$> new (jsg "Blob") ())
newBlob' ::
(MonadDOM m, IsBlobPropertyBag options) =>
[JSVal] -> Maybe options -> m Blob
newBlob' blobParts options
= liftDOM
(Blob <$>
new (jsg "Blob") [toJSVal (array blobParts), toJSVal options])
slice ::
(MonadDOM m, IsBlob self, ToJSString contentType) =>
self -> Int64 -> Int64 -> Maybe contentType -> m (Maybe Blob)
slice self start end contentType
= liftDOM
(((toBlob self) ^. jsf "slice"
[integralToDoubleToJSVal start, integralToDoubleToJSVal end,
toJSVal contentType])
>>= fromJSVal)
slice_ ::
(MonadDOM m, IsBlob self, ToJSString contentType) =>
self -> Int64 -> Int64 -> Maybe contentType -> m ()
slice_ self start end contentType
= liftDOM
(void
((toBlob self) ^. jsf "slice"
[integralToDoubleToJSVal start, integralToDoubleToJSVal end,
toJSVal contentType]))
sliceUnsafe ::
(MonadDOM m, IsBlob self, ToJSString contentType, HasCallStack) =>
self -> Int64 -> Int64 -> Maybe contentType -> m Blob
sliceUnsafe self start end contentType
= liftDOM
((((toBlob self) ^. jsf "slice"
[integralToDoubleToJSVal start, integralToDoubleToJSVal end,
toJSVal contentType])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
sliceUnchecked ::
(MonadDOM m, IsBlob self, ToJSString contentType) =>
self -> Int64 -> Int64 -> Maybe contentType -> m Blob
sliceUnchecked self start end contentType
= liftDOM
(((toBlob self) ^. jsf "slice"
[integralToDoubleToJSVal start, integralToDoubleToJSVal end,
toJSVal contentType])
>>= fromJSValUnchecked)
getSize :: (MonadDOM m, IsBlob self) => self -> m Word64
getSize self
= liftDOM
(round <$> (((toBlob self) ^. js "size") >>= valToNumber))
getType ::
(MonadDOM m, IsBlob self, FromJSString result) => self -> m result
getType self
= liftDOM (((toBlob self) ^. js "type") >>= fromJSValUnchecked)