FormData.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from xhr (webref). Do not edit.
module JSDOM.Generated.FormData
       (newFormData, newFormData', append, appendBlob, delete, get, get_, getUnsafe, getUnchecked, getAll, getAll_, has, has_, set, setBlobValueFilename, FormData(..), gTypeFormData)
       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/FormData/FormData MDN FormData. documentation>
newFormData :: (MonadDOM m) => Maybe HTMLFormElement -> m FormData
newFormData form = liftDOM (((new (jsg "FormData") [P.maybe (P.return jsUndefined) toJSVal form]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/FormData/FormData MDN FormData. documentation>
newFormData' :: (MonadDOM m, IsHTMLElement submitter) => Maybe HTMLFormElement -> Maybe submitter -> m FormData
newFormData' form submitter = liftDOM (((new (jsg "FormData") [P.maybe (P.return jsUndefined) toJSVal form, toJSVal submitter]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/FormData/append MDN FormData.append documentation>
append :: (MonadDOM m, ToJSString name, ToJSString value) => FormData -> name -> value -> m ()
append self name value = liftDOM (void (self ^. jsf "append" [toJSVal name, toJSVal value]))

-- | <https://developer.mozilla.org/docs/Web/API/FormData/append MDN FormData.append documentation>
appendBlob :: (MonadDOM m, ToJSString name, IsBlob blobValue, ToJSString filename) => FormData -> name -> blobValue -> Maybe filename -> m ()
appendBlob self name blobValue filename = liftDOM (void (self ^. jsf "append" [toJSVal name, toJSVal blobValue, P.maybe (P.return jsUndefined) toJSVal filename]))

-- | <https://developer.mozilla.org/docs/Web/API/FormData/delete MDN FormData.delete documentation>
delete :: (MonadDOM m, ToJSString name) => FormData -> name -> m ()
delete self name = liftDOM (void (self ^. jsf "delete" [toJSVal name]))

-- | <https://developer.mozilla.org/docs/Web/API/FormData/get MDN FormData.get documentation>
get :: (MonadDOM m, ToJSString name) => FormData -> name -> m (Maybe FormDataEntryValue)
get self name = liftDOM (((self ^. jsf "get" [toJSVal name]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/FormData/get MDN FormData.get documentation>
get_ :: (MonadDOM m, ToJSString name) => FormData -> name -> m ()
get_ self name = liftDOM (void (self ^. jsf "get" [toJSVal name]))

-- | <https://developer.mozilla.org/docs/Web/API/FormData/get MDN FormData.get documentation>
getUnsafe :: (MonadDOM m, ToJSString name, HasCallStack) => FormData -> name -> m FormDataEntryValue
getUnsafe self name = liftDOM ((((self ^. jsf "get" [toJSVal name]) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/FormData/get MDN FormData.get documentation>
getUnchecked :: (MonadDOM m, ToJSString name) => FormData -> name -> m FormDataEntryValue
getUnchecked self name = liftDOM (((self ^. jsf "get" [toJSVal name]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/FormData/getAll MDN FormData.getAll documentation>
getAll :: (MonadDOM m, ToJSString name) => FormData -> name -> m [FormDataEntryValue]
getAll self name = liftDOM (((self ^. jsf "getAll" [toJSVal name]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/FormData/getAll MDN FormData.getAll documentation>
getAll_ :: (MonadDOM m, ToJSString name) => FormData -> name -> m ()
getAll_ self name = liftDOM (void (self ^. jsf "getAll" [toJSVal name]))

-- | <https://developer.mozilla.org/docs/Web/API/FormData/has MDN FormData.has documentation>
has :: (MonadDOM m, ToJSString name) => FormData -> name -> m Bool
has self name = liftDOM (((self ^. jsf "has" [toJSVal name]) >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/FormData/has MDN FormData.has documentation>
has_ :: (MonadDOM m, ToJSString name) => FormData -> name -> m ()
has_ self name = liftDOM (void (self ^. jsf "has" [toJSVal name]))

-- | <https://developer.mozilla.org/docs/Web/API/FormData/set MDN FormData.set documentation>
set :: (MonadDOM m, ToJSString name, ToJSString value) => FormData -> name -> value -> m ()
set self name value = liftDOM (void (self ^. jsf "set" [toJSVal name, toJSVal value]))

-- | <https://developer.mozilla.org/docs/Web/API/FormData/set MDN FormData.set documentation>
setBlobValueFilename :: (MonadDOM m, ToJSString name, IsBlob blobValue, ToJSString filename) => FormData -> name -> blobValue -> Maybe filename -> m ()
setBlobValueFilename self name blobValue filename = liftDOM (void (self ^. jsf "set" [toJSVal name, toJSVal blobValue, P.maybe (P.return jsUndefined) toJSVal filename]))