FileSystemEntry.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from entries-api (webref). Do not edit.
module JSDOM.Generated.FileSystemEntry
       (getParent, getIsFile, getIsDirectory, getName, getFullPath, getFilesystem, FileSystemEntry(..), gTypeFileSystemEntry, IsFileSystemEntry, toFileSystemEntry)
       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/FileSystemEntry/getParent MDN FileSystemEntry.getParent documentation>
getParent :: (MonadDOM m, IsFileSystemEntry self) => self -> Maybe FileSystemEntryCallback -> Maybe ErrorCallback -> m ()
getParent self successCallback errorCallback = liftDOM (void ((Types.toFileSystemEntry self) ^. jsf "getParent" [P.maybe (P.return jsUndefined) toJSVal successCallback, P.maybe (P.return jsUndefined) toJSVal errorCallback]))

-- | <https://developer.mozilla.org/docs/Web/API/FileSystemEntry/isFile MDN FileSystemEntry.isFile documentation>
getIsFile :: (MonadDOM m, IsFileSystemEntry self) => self -> m Bool
getIsFile self = liftDOM ((((Types.toFileSystemEntry self) ^. js "isFile") >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/FileSystemEntry/isDirectory MDN FileSystemEntry.isDirectory documentation>
getIsDirectory :: (MonadDOM m, IsFileSystemEntry self) => self -> m Bool
getIsDirectory self = liftDOM ((((Types.toFileSystemEntry self) ^. js "isDirectory") >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/FileSystemEntry/name MDN FileSystemEntry.name documentation>
getName :: (MonadDOM m, IsFileSystemEntry self, FromJSString result) => self -> m result
getName self = liftDOM ((((Types.toFileSystemEntry self) ^. js "name") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/FileSystemEntry/fullPath MDN FileSystemEntry.fullPath documentation>
getFullPath :: (MonadDOM m, IsFileSystemEntry self, FromJSString result) => self -> m result
getFullPath self = liftDOM ((((Types.toFileSystemEntry self) ^. js "fullPath") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/FileSystemEntry/filesystem MDN FileSystemEntry.filesystem documentation>
getFilesystem :: (MonadDOM m, IsFileSystemEntry self) => self -> m FileSystem
getFilesystem self = liftDOM ((((Types.toFileSystemEntry self) ^. js "filesystem") >>= fromJSValUnchecked))