module GHCJS.DOM.JSFFI.Generated.URL
(js_newURL, newURL, js_newURL', newURL', js_newURL'', newURL'',
js_createObjectURL, createObjectURL, createObjectURL_,
createObjectURLUnsafe, createObjectURLUnchecked,
js_revokeObjectURL, revokeObjectURL, js_createObjectURLSource,
createObjectURLSource, createObjectURLSource_,
createObjectURLSourceUnsafe, createObjectURLSourceUnchecked,
js_createObjectURLStream, createObjectURLStream,
createObjectURLStream_, createObjectURLStreamUnsafe,
createObjectURLStreamUnchecked, URL(..), gTypeURL)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)
import qualified Prelude (error)
import Data.Typeable (Typeable)
import GHCJS.Types (JSVal(..), JSString)
import GHCJS.Foreign (jsNull)
import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))
import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))
import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import Data.Maybe (fromJust)
import GHCJS.DOM.Types
import Control.Applicative ((<$>))
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
import GHCJS.DOM.JSFFI.Generated.Enums
foreign import javascript unsafe "new window[\"URL\"]($1)"
js_newURL :: JSString -> IO URL
newURL :: (MonadIO m, ToJSString url) => url -> m URL
newURL url = liftIO (js_newURL (toJSString url))
foreign import javascript unsafe "new window[\"URL\"]($1, $2)"
js_newURL' :: JSString -> JSString -> IO URL
newURL' ::
(MonadIO m, ToJSString url, ToJSString base) =>
url -> base -> m URL
newURL' url base
= liftIO (js_newURL' (toJSString url) (toJSString base))
foreign import javascript unsafe "new window[\"URL\"]($1, $2)"
js_newURL'' :: JSString -> Nullable URL -> IO URL
newURL'' ::
(MonadIO m, ToJSString url) => url -> Maybe URL -> m URL
newURL'' url base
= liftIO (js_newURL'' (toJSString url) (maybeToNullable base))
foreign import javascript unsafe "$1[\"createObjectURL\"]($2)"
js_createObjectURL ::
URL -> Nullable Blob -> IO (Nullable JSString)
createObjectURL ::
(MonadIO m, IsBlob blob, FromJSString result) =>
URL -> Maybe blob -> m (Maybe result)
createObjectURL self blob
= liftIO
(fromMaybeJSString <$>
(js_createObjectURL (self) (maybeToNullable (fmap toBlob blob))))
createObjectURL_ ::
(MonadIO m, IsBlob blob) => URL -> Maybe blob -> m ()
createObjectURL_ self blob
= liftIO
(void
(js_createObjectURL (self) (maybeToNullable (fmap toBlob blob))))
createObjectURLUnsafe ::
(MonadIO m, IsBlob blob, HasCallStack, FromJSString result) =>
URL -> Maybe blob -> m result
createObjectURLUnsafe self blob
= liftIO
((fromMaybeJSString <$>
(js_createObjectURL (self) (maybeToNullable (fmap toBlob blob))))
>>= maybe (Prelude.error "Nothing to return") return)
createObjectURLUnchecked ::
(MonadIO m, IsBlob blob, FromJSString result) =>
URL -> Maybe blob -> m result
createObjectURLUnchecked self blob
= liftIO
(fromJust . fromMaybeJSString <$>
(js_createObjectURL (self) (maybeToNullable (fmap toBlob blob))))
foreign import javascript unsafe "$1[\"revokeObjectURL\"]($2)"
js_revokeObjectURL :: URL -> JSString -> IO ()
revokeObjectURL ::
(MonadIO m, ToJSString url) => URL -> url -> m ()
revokeObjectURL self url
= liftIO (js_revokeObjectURL (self) (toJSString url))
foreign import javascript unsafe "$1[\"createObjectURL\"]($2)"
js_createObjectURLSource ::
URL -> Nullable MediaSource -> IO (Nullable JSString)
createObjectURLSource ::
(MonadIO m, FromJSString result) =>
URL -> Maybe MediaSource -> m (Maybe result)
createObjectURLSource self source
= liftIO
(fromMaybeJSString <$>
(js_createObjectURLSource (self) (maybeToNullable source)))
createObjectURLSource_ ::
(MonadIO m) => URL -> Maybe MediaSource -> m ()
createObjectURLSource_ self source
= liftIO
(void (js_createObjectURLSource (self) (maybeToNullable source)))
createObjectURLSourceUnsafe ::
(MonadIO m, HasCallStack, FromJSString result) =>
URL -> Maybe MediaSource -> m result
createObjectURLSourceUnsafe self source
= liftIO
((fromMaybeJSString <$>
(js_createObjectURLSource (self) (maybeToNullable source)))
>>= maybe (Prelude.error "Nothing to return") return)
createObjectURLSourceUnchecked ::
(MonadIO m, FromJSString result) =>
URL -> Maybe MediaSource -> m result
createObjectURLSourceUnchecked self source
= liftIO
(fromJust . fromMaybeJSString <$>
(js_createObjectURLSource (self) (maybeToNullable source)))
foreign import javascript unsafe "$1[\"createObjectURL\"]($2)"
js_createObjectURLStream ::
URL -> Nullable MediaStream -> IO (Nullable JSString)
createObjectURLStream ::
(MonadIO m, FromJSString result) =>
URL -> Maybe MediaStream -> m (Maybe result)
createObjectURLStream self stream
= liftIO
(fromMaybeJSString <$>
(js_createObjectURLStream (self) (maybeToNullable stream)))
createObjectURLStream_ ::
(MonadIO m) => URL -> Maybe MediaStream -> m ()
createObjectURLStream_ self stream
= liftIO
(void (js_createObjectURLStream (self) (maybeToNullable stream)))
createObjectURLStreamUnsafe ::
(MonadIO m, HasCallStack, FromJSString result) =>
URL -> Maybe MediaStream -> m result
createObjectURLStreamUnsafe self stream
= liftIO
((fromMaybeJSString <$>
(js_createObjectURLStream (self) (maybeToNullable stream)))
>>= maybe (Prelude.error "Nothing to return") return)
createObjectURLStreamUnchecked ::
(MonadIO m, FromJSString result) =>
URL -> Maybe MediaStream -> m result
createObjectURLStreamUnchecked self stream
= liftIO
(fromJust . fromMaybeJSString <$>
(js_createObjectURLStream (self) (maybeToNullable stream)))