Headers.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from fetch (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.Headers
       (js_newHeaders, js_append, js_delete, js_get, js_getSetCookie, js_has, js_set, newHeaders, append, delete, get, get_, getUnsafe, getUnchecked, getSetCookie, getSetCookie_, has, has_, set, Headers(..), gTypeHeaders)
       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) => { return new globalThis[\"Headers\"]($1); })"
        js_newHeaders :: JSVal -> IO Headers
-- | <https://developer.mozilla.org/docs/Web/API/Headers/Headers MDN Headers. documentation>
newHeaders :: (MonadDOM m, IsHeadersInit init) => Maybe init -> m Headers
newHeaders init = liftDOM (((P.maybe (P.return jsUndefined) toJSVal init) >>= \a1' -> js_newHeaders a1'))

foreign import javascript safe "(($1, $2, $3) => { return $1[\"append\"]($2, $3); })"
        js_append :: Headers -> JSString -> JSString -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/Headers/append MDN Headers.append documentation>
append :: (MonadDOM m, ToJSString name, ToJSString value) => Headers -> name -> value -> m ()
append self name value = liftDOM (void ((js_append (self) (toJSString name) (toJSString value))))

foreign import javascript safe "(($1, $2) => { return $1[\"delete\"]($2); })"
        js_delete :: Headers -> JSString -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/Headers/delete MDN Headers.delete documentation>
delete :: (MonadDOM m, ToJSString name) => Headers -> name -> m ()
delete self name = liftDOM (void ((js_delete (self) (toJSString name))))

foreign import javascript safe "(($1, $2) => { return $1[\"get\"]($2); })"
        js_get :: Headers -> JSString -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/Headers/get MDN Headers.get documentation>
get :: (MonadDOM m, ToJSString name, FromJSString result) => Headers -> name -> m (Maybe result)
get self name = liftDOM (((fromMaybeJSString . Nullable) <$> (js_get (self) (toJSString name))))

-- | <https://developer.mozilla.org/docs/Web/API/Headers/get MDN Headers.get documentation>
get_ :: (MonadDOM m, ToJSString name) => Headers -> name -> m ()
get_ self name = liftDOM (void ((js_get (self) (toJSString name))))

-- | <https://developer.mozilla.org/docs/Web/API/Headers/get MDN Headers.get documentation>
getUnsafe :: (MonadDOM m, ToJSString name, HasCallStack, FromJSString result) => Headers -> name -> m result
getUnsafe self name = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_get (self) (toJSString name))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/Headers/get MDN Headers.get documentation>
getUnchecked :: (MonadDOM m, ToJSString name, FromJSString result) => Headers -> name -> m result
getUnchecked self name = liftDOM ((pFromJSVal <$> (js_get (self) (toJSString name))))

foreign import javascript safe "(($1) => { return $1[\"getSetCookie\"](); })"
        js_getSetCookie :: Headers -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/Headers/getSetCookie MDN Headers.getSetCookie documentation>
getSetCookie :: (MonadDOM m, FromJSString result) => Headers -> m [result]
getSetCookie self = liftDOM (((js_getSetCookie (self)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Headers/getSetCookie MDN Headers.getSetCookie documentation>
getSetCookie_ :: (MonadDOM m) => Headers -> m ()
getSetCookie_ self = liftDOM (void ((js_getSetCookie (self))))

foreign import javascript safe "(($1, $2) => { return $1[\"has\"]($2); })"
        js_has :: Headers -> JSString -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/Headers/has MDN Headers.has documentation>
has :: (MonadDOM m, ToJSString name) => Headers -> name -> m Bool
has self name = liftDOM ((js_has (self) (toJSString name)))

-- | <https://developer.mozilla.org/docs/Web/API/Headers/has MDN Headers.has documentation>
has_ :: (MonadDOM m, ToJSString name) => Headers -> name -> m ()
has_ self name = liftDOM (void ((js_has (self) (toJSString name))))

foreign import javascript safe "(($1, $2, $3) => { return $1[\"set\"]($2, $3); })"
        js_set :: Headers -> JSString -> JSString -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/Headers/set MDN Headers.set documentation>
set :: (MonadDOM m, ToJSString name, ToJSString value) => Headers -> name -> value -> m ()
set self name value = liftDOM (void ((js_set (self) (toJSString name) (toJSString value))))