{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.ApplicationCache (js_update, update, js_swapCache, swapCache, js_abort, abort, pattern UNCACHED, pattern IDLE, pattern CHECKING, pattern DOWNLOADING, pattern UPDATEREADY, pattern OBSOLETE, js_getStatus, getStatus, checking, error, noUpdate, downloading, progress, updateReady, cached, obsolete, ApplicationCache(..), gTypeApplicationCache) 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, jsUndefined) 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 Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums foreign import javascript safe "$1[\"update\"]()" js_update :: ApplicationCache -> IO () -- | update :: (MonadIO m) => ApplicationCache -> m () update self = liftIO (js_update self) foreign import javascript safe "$1[\"swapCache\"]()" js_swapCache :: ApplicationCache -> IO () -- | swapCache :: (MonadIO m) => ApplicationCache -> m () swapCache self = liftIO (js_swapCache self) foreign import javascript unsafe "$1[\"abort\"]()" js_abort :: ApplicationCache -> IO () -- | abort :: (MonadIO m) => ApplicationCache -> m () abort self = liftIO (js_abort self) pattern UNCACHED = 0 pattern IDLE = 1 pattern CHECKING = 2 pattern DOWNLOADING = 3 pattern UPDATEREADY = 4 pattern OBSOLETE = 5 foreign import javascript unsafe "$1[\"status\"]" js_getStatus :: ApplicationCache -> IO Word -- | getStatus :: (MonadIO m) => ApplicationCache -> m Word getStatus self = liftIO (js_getStatus self) -- | checking :: EventName ApplicationCache Event checking = unsafeEventName (toJSString "checking") -- | error :: EventName ApplicationCache UIEvent error = unsafeEventNameAsync (toJSString "error") -- | noUpdate :: EventName ApplicationCache Event noUpdate = unsafeEventName (toJSString "noupdate") -- | downloading :: EventName ApplicationCache Event downloading = unsafeEventName (toJSString "downloading") -- | progress :: EventName ApplicationCache ProgressEvent progress = unsafeEventNameAsync (toJSString "progress") -- | updateReady :: EventName ApplicationCache Event updateReady = unsafeEventName (toJSString "updateready") -- | cached :: EventName ApplicationCache Event cached = unsafeEventName (toJSString "cached") -- | obsolete :: EventName ApplicationCache Event obsolete = unsafeEventName (toJSString "obsolete")