FileReaderSync.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from FileAPI (webref). Do not edit.
module JSDOM.Generated.FileReaderSync
       (newFileReaderSync, readAsArrayBuffer, readAsArrayBuffer_, readAsBinaryString, readAsBinaryString_, readAsDataURL, readAsDataURL_, readAsText, readAsText_, FileReaderSync(..), gTypeFileReaderSync)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

-- | <https://developer.mozilla.org/docs/Web/API/FileReaderSync/FileReaderSync MDN FileReaderSync. documentation>
newFileReaderSync :: (MonadDOM m) => m FileReaderSync
newFileReaderSync = liftDOM (((new (jsg "FileReaderSync") ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/FileReaderSync/readAsArrayBuffer MDN FileReaderSync.readAsArrayBuffer documentation>
readAsArrayBuffer :: (MonadDOM m, IsBlob blob) => FileReaderSync -> blob -> m ArrayBuffer
readAsArrayBuffer self blob = liftDOM (((self ^. jsf "readAsArrayBuffer" [toJSVal blob]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/FileReaderSync/readAsArrayBuffer MDN FileReaderSync.readAsArrayBuffer documentation>
readAsArrayBuffer_ :: (MonadDOM m, IsBlob blob) => FileReaderSync -> blob -> m ()
readAsArrayBuffer_ self blob = liftDOM (void (self ^. jsf "readAsArrayBuffer" [toJSVal blob]))

-- | <https://developer.mozilla.org/docs/Web/API/FileReaderSync/readAsBinaryString MDN FileReaderSync.readAsBinaryString documentation>
readAsBinaryString :: (MonadDOM m, IsBlob blob, FromJSString result) => FileReaderSync -> blob -> m result
readAsBinaryString self blob = liftDOM (((self ^. jsf "readAsBinaryString" [toJSVal blob]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/FileReaderSync/readAsBinaryString MDN FileReaderSync.readAsBinaryString documentation>
readAsBinaryString_ :: (MonadDOM m, IsBlob blob) => FileReaderSync -> blob -> m ()
readAsBinaryString_ self blob = liftDOM (void (self ^. jsf "readAsBinaryString" [toJSVal blob]))

-- | <https://developer.mozilla.org/docs/Web/API/FileReaderSync/readAsDataURL MDN FileReaderSync.readAsDataURL documentation>
readAsDataURL :: (MonadDOM m, IsBlob blob, FromJSString result) => FileReaderSync -> blob -> m result
readAsDataURL self blob = liftDOM (((self ^. jsf "readAsDataURL" [toJSVal blob]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/FileReaderSync/readAsDataURL MDN FileReaderSync.readAsDataURL documentation>
readAsDataURL_ :: (MonadDOM m, IsBlob blob) => FileReaderSync -> blob -> m ()
readAsDataURL_ self blob = liftDOM (void (self ^. jsf "readAsDataURL" [toJSVal blob]))

-- | <https://developer.mozilla.org/docs/Web/API/FileReaderSync/readAsText MDN FileReaderSync.readAsText documentation>
readAsText :: (MonadDOM m, IsBlob blob, ToJSString encoding, FromJSString result) => FileReaderSync -> blob -> Maybe encoding -> m result
readAsText self blob encoding = liftDOM (((self ^. jsf "readAsText" [toJSVal blob, P.maybe (P.return jsUndefined) toJSVal encoding]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/FileReaderSync/readAsText MDN FileReaderSync.readAsText documentation>
readAsText_ :: (MonadDOM m, IsBlob blob, ToJSString encoding) => FileReaderSync -> blob -> Maybe encoding -> m ()
readAsText_ self blob encoding = liftDOM (void (self ^. jsf "readAsText" [toJSVal blob, P.maybe (P.return jsUndefined) toJSVal encoding]))