NavigatorPlugins.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module JSDOM.Generated.NavigatorPlugins
       (javaEnabled, javaEnabled_, getPlugins, getMimeTypes, getPdfViewerEnabled, NavigatorPlugins(..), gTypeNavigatorPlugins, IsNavigatorPlugins, toNavigatorPlugins)
       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/Navigator/javaEnabled MDN NavigatorPlugins.javaEnabled documentation>
javaEnabled :: (MonadDOM m, IsNavigatorPlugins self) => self -> m Bool
javaEnabled self = liftDOM ((((Types.toNavigatorPlugins self) ^. jsf "javaEnabled" ()) >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/Navigator/javaEnabled MDN NavigatorPlugins.javaEnabled documentation>
javaEnabled_ :: (MonadDOM m, IsNavigatorPlugins self) => self -> m ()
javaEnabled_ self = liftDOM (void ((Types.toNavigatorPlugins self) ^. jsf "javaEnabled" ()))

-- | <https://developer.mozilla.org/docs/Web/API/Navigator/plugins MDN NavigatorPlugins.plugins documentation>
getPlugins :: (MonadDOM m, IsNavigatorPlugins self) => self -> m PluginArray
getPlugins self = liftDOM ((((Types.toNavigatorPlugins self) ^. js "plugins") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Navigator/mimeTypes MDN NavigatorPlugins.mimeTypes documentation>
getMimeTypes :: (MonadDOM m, IsNavigatorPlugins self) => self -> m MimeTypeArray
getMimeTypes self = liftDOM ((((Types.toNavigatorPlugins self) ^. js "mimeTypes") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Navigator/pdfViewerEnabled MDN NavigatorPlugins.pdfViewerEnabled documentation>
getPdfViewerEnabled :: (MonadDOM m, IsNavigatorPlugins self) => self -> m Bool
getPdfViewerEnabled self = liftDOM ((((Types.toNavigatorPlugins self) ^. js "pdfViewerEnabled") >>= valToBool))