FileSystemWritableFileStream.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from fs (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.FileSystemWritableFileStream
       (js_seek, js_truncate, js_write, seek, truncate, write, FileSystemWritableFileStream(..), gTypeFileSystemWritableFileStream)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"seek\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"
        js_seek :: FileSystemWritableFileStream -> JSVal -> IO (JSVal, ())
-- | <https://developer.mozilla.org/docs/Web/API/FileSystemWritableFileStream/seek MDN FileSystemWritableFileStream.seek documentation>
seek :: (MonadDOM m) => FileSystemWritableFileStream -> Word53 -> m ()
seek self position = liftDOM (void ((((toJSVal position) >>= \a2' -> js_seek (self) a2') >>= checkPromiseResult)))

foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"truncate\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"
        js_truncate :: FileSystemWritableFileStream -> JSVal -> IO (JSVal, ())
-- | <https://developer.mozilla.org/docs/Web/API/FileSystemWritableFileStream/truncate MDN FileSystemWritableFileStream.truncate documentation>
truncate :: (MonadDOM m) => FileSystemWritableFileStream -> Word53 -> m ()
truncate self size = liftDOM (void ((((toJSVal size) >>= \a2' -> js_truncate (self) a2') >>= checkPromiseResult)))

foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"write\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"
        js_write :: FileSystemWritableFileStream -> FileSystemWriteChunkType -> IO (JSVal, ())
-- | <https://developer.mozilla.org/docs/Web/API/FileSystemWritableFileStream/write MDN FileSystemWritableFileStream.write documentation>
write :: (MonadDOM m, IsFileSystemWriteChunkType data') => FileSystemWritableFileStream -> data' -> m ()
write self data' = liftDOM (void (((js_write (self) (Types.toFileSystemWriteChunkType data')) >>= checkPromiseResult)))