module JSDOM.Generated.FileReader
(newFileReader, readAsArrayBuffer, readAsBinaryString, readAsText,
readAsDataURL, abort, pattern EMPTY, pattern LOADING, pattern DONE,
getReadyState, getResult, getError, getErrorUnsafe,
getErrorUnchecked, loadStart, progress, load, abortEvent, error,
loadEnd, FileReader(..), gTypeFileReader)
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
newFileReader :: (MonadDOM m) => m FileReader
newFileReader = liftDOM (FileReader <$> new (jsg "FileReader") ())
readAsArrayBuffer ::
(MonadDOM m, IsBlob blob) => FileReader -> Maybe blob -> m ()
readAsArrayBuffer self blob
= liftDOM (void (self ^. jsf "readAsArrayBuffer" [toJSVal blob]))
readAsBinaryString ::
(MonadDOM m, IsBlob blob) => FileReader -> Maybe blob -> m ()
readAsBinaryString self blob
= liftDOM (void (self ^. jsf "readAsBinaryString" [toJSVal blob]))
readAsText ::
(MonadDOM m, IsBlob blob, ToJSString encoding) =>
FileReader -> Maybe blob -> encoding -> m ()
readAsText self blob encoding
= liftDOM
(void (self ^. jsf "readAsText" [toJSVal blob, toJSVal encoding]))
readAsDataURL ::
(MonadDOM m, IsBlob blob) => FileReader -> Maybe blob -> m ()
readAsDataURL self blob
= liftDOM (void (self ^. jsf "readAsDataURL" [toJSVal blob]))
abort :: (MonadDOM m) => FileReader -> m ()
abort self = liftDOM (void (self ^. jsf "abort" ()))
pattern EMPTY = 0
pattern LOADING = 1
pattern DONE = 2
getReadyState :: (MonadDOM m) => FileReader -> m Word
getReadyState self
= liftDOM (round <$> ((self ^. js "readyState") >>= valToNumber))
getResult :: (MonadDOM m) => FileReader -> m JSVal
getResult self = liftDOM ((self ^. js "result") >>= toJSVal)
getError :: (MonadDOM m) => FileReader -> m (Maybe FileError)
getError self = liftDOM ((self ^. js "error") >>= fromJSVal)
getErrorUnsafe ::
(MonadDOM m, HasCallStack) => FileReader -> m FileError
getErrorUnsafe self
= liftDOM
(((self ^. js "error") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getErrorUnchecked :: (MonadDOM m) => FileReader -> m FileError
getErrorUnchecked self
= liftDOM ((self ^. js "error") >>= fromJSValUnchecked)
loadStart :: EventName FileReader ProgressEvent
loadStart = unsafeEventName (toJSString "loadstart")
progress :: EventName FileReader ProgressEvent
progress = unsafeEventName (toJSString "progress")
load :: EventName FileReader UIEvent
load = unsafeEventName (toJSString "load")
abortEvent :: EventName FileReader UIEvent
abortEvent = unsafeEventName (toJSString "abort")
error :: EventName FileReader UIEvent
error = unsafeEventName (toJSString "error")
loadEnd :: EventName FileReader ProgressEvent
loadEnd = unsafeEventName (toJSString "loadend")