File.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from FileAPI (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.File
       (js_newFile, js_getName, js_getLastModified, js_getWebkitRelativePath, newFile, getName, getLastModified, getWebkitRelativePath, File(..), gTypeFile)
       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 safe "(($1, $2, $3) => { return new globalThis[\"File\"]($1, $2, $3); })"
        js_newFile :: JSVal -> JSString -> JSVal -> IO File
-- | <https://developer.mozilla.org/docs/Web/API/File/File MDN File. documentation>
newFile :: (MonadDOM m, IsBlobPart fileBits, ToJSString fileName) => [fileBits] -> fileName -> Maybe FilePropertyBag -> m File
newFile fileBits fileName options = liftDOM (((toJSVal fileBits) >>= \a1' -> (P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_newFile a1' (toJSString fileName) a3'))

foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })"
        js_getName :: File -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/File/name MDN File.name documentation>
getName :: (MonadDOM m, FromJSString result) => File -> m result
getName self = liftDOM ((fromJSString <$> (js_getName (self))))

foreign import javascript unsafe "(($1) => { return $1[\"lastModified\"]; })"
        js_getLastModified :: File -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/File/lastModified MDN File.lastModified documentation>
getLastModified :: (MonadDOM m) => File -> m Int53
getLastModified self = liftDOM (((js_getLastModified (self)) >>= fromJSValUnchecked))

foreign import javascript unsafe "(($1) => { return $1[\"webkitRelativePath\"]; })"
        js_getWebkitRelativePath :: File -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/File/webkitRelativePath MDN File.webkitRelativePath documentation>
getWebkitRelativePath :: (MonadDOM m, FromJSString result) => File -> m result
getWebkitRelativePath self = liftDOM ((fromJSString <$> (js_getWebkitRelativePath (self))))