{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.NotificationCenter (js_createNotification, createNotification, createNotification_, createNotificationUnchecked, js_checkPermission, checkPermission, checkPermission_, js_requestPermission, requestPermission, NotificationCenter, castToNotificationCenter, gTypeNotificationCenter) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) 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 "$1[\"createNotification\"]($2, $3,\n$4)" js_createNotification :: NotificationCenter -> JSString -> JSString -> JSString -> IO (Nullable Notification) -- | createNotification :: (MonadIO m, ToJSString iconUrl, ToJSString title, ToJSString body) => NotificationCenter -> iconUrl -> title -> body -> m (Maybe Notification) createNotification self iconUrl title body = liftIO (nullableToMaybe <$> (js_createNotification (self) (toJSString iconUrl) (toJSString title) (toJSString body))) -- | createNotification_ :: (MonadIO m, ToJSString iconUrl, ToJSString title, ToJSString body) => NotificationCenter -> iconUrl -> title -> body -> m () createNotification_ self iconUrl title body = liftIO (void (js_createNotification (self) (toJSString iconUrl) (toJSString title) (toJSString body))) -- | createNotificationUnchecked :: (MonadIO m, ToJSString iconUrl, ToJSString title, ToJSString body) => NotificationCenter -> iconUrl -> title -> body -> m Notification createNotificationUnchecked self iconUrl title body = liftIO (fromJust . nullableToMaybe <$> (js_createNotification (self) (toJSString iconUrl) (toJSString title) (toJSString body))) foreign import javascript unsafe "$1[\"checkPermission\"]()" js_checkPermission :: NotificationCenter -> IO Int -- | checkPermission :: (MonadIO m) => NotificationCenter -> m Int checkPermission self = liftIO (js_checkPermission (self)) -- | checkPermission_ :: (MonadIO m) => NotificationCenter -> m () checkPermission_ self = liftIO (void (js_checkPermission (self))) foreign import javascript unsafe "$1[\"requestPermission\"]($2)" js_requestPermission :: NotificationCenter -> Nullable VoidCallback -> IO () -- | requestPermission :: (MonadIO m) => NotificationCenter -> Maybe VoidCallback -> m () requestPermission self callback = liftIO (js_requestPermission (self) (maybeToNullable callback))