FileSystemReadWriteOptions.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from fs (webref). Do not edit.
module JSDOM.Generated.FileSystemReadWriteOptions
       (newFileSystemReadWriteOptions, setAt, getAt, getAtUnsafe, getAtUnchecked, FileSystemReadWriteOptions(..), gTypeFileSystemReadWriteOptions)
       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://fs.spec.whatwg.org/#dictdef-filesystemreadwriteoptions FileSystemReadWriteOptions specification>
newFileSystemReadWriteOptions :: (MonadDOM m) => m FileSystemReadWriteOptions
newFileSystemReadWriteOptions = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://fs.spec.whatwg.org/#dom-filesystemreadwriteoptions-at FileSystemReadWriteOptions.at specification>
setAt :: (MonadDOM m) => FileSystemReadWriteOptions -> Word53 -> m ()
setAt self val = liftDOM (void (self ^. jss "at" (toJSVal val)))

-- | <https://fs.spec.whatwg.org/#dom-filesystemreadwriteoptions-at FileSystemReadWriteOptions.at specification>
getAt :: (MonadDOM m) => FileSystemReadWriteOptions -> m (Maybe Word53)
getAt self = liftDOM (((self ^. js "at") >>= fromJSValUnchecked))

-- | <https://fs.spec.whatwg.org/#dom-filesystemreadwriteoptions-at FileSystemReadWriteOptions.at specification>
getAtUnsafe :: (MonadDOM m, HasCallStack) => FileSystemReadWriteOptions -> m Word53
getAtUnsafe self = liftDOM ((((self ^. js "at") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://fs.spec.whatwg.org/#dom-filesystemreadwriteoptions-at FileSystemReadWriteOptions.at specification>
getAtUnchecked :: (MonadDOM m) => FileSystemReadWriteOptions -> m Word53
getAtUnchecked self = liftDOM (((self ^. js "at") >>= fromJSValUnchecked))