jsaddle-dom-0.1.0.1: src/Language/Javascript/JSaddle/DOM/Generated/SQLStatementCallback.hs

{-# LANGUAGE PatternSynonyms #-}
module Language.Javascript.JSaddle.DOM.Generated.SQLStatementCallback
       (newSQLStatementCallback, newSQLStatementCallbackSync,
        newSQLStatementCallbackAsync, SQLStatementCallback)
       where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import Data.Typeable (Typeable)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
import Data.Int (Int64)
import Data.Word (Word, Word64)
import Language.Javascript.JSaddle.DOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)
import Language.Javascript.JSaddle.DOM.Enums

-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementCallback Mozilla SQLStatementCallback documentation> 
newSQLStatementCallback ::
                        (MonadDOM m) =>
                          (Maybe SQLTransaction -> Maybe SQLResultSet -> JSM ()) ->
                            m SQLStatementCallback
newSQLStatementCallback callback
  = liftDOM
      (SQLStatementCallback . Callback <$>
         function ""
           (\ _ _ [transaction, resultSet] ->
              fromJSVal resultSet >>=
                \ resultSet' ->
                  fromJSVal transaction >>= \ transaction' -> callback transaction'
                    resultSet'))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementCallback Mozilla SQLStatementCallback documentation> 
newSQLStatementCallbackSync ::
                            (MonadDOM m) =>
                              (Maybe SQLTransaction -> Maybe SQLResultSet -> JSM ()) ->
                                m SQLStatementCallback
newSQLStatementCallbackSync callback
  = liftDOM
      (SQLStatementCallback . Callback <$>
         function ""
           (\ _ _ [transaction, resultSet] ->
              fromJSVal resultSet >>=
                \ resultSet' ->
                  fromJSVal transaction >>= \ transaction' -> callback transaction'
                    resultSet'))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementCallback Mozilla SQLStatementCallback documentation> 
newSQLStatementCallbackAsync ::
                             (MonadDOM m) =>
                               (Maybe SQLTransaction -> Maybe SQLResultSet -> JSM ()) ->
                                 m SQLStatementCallback
newSQLStatementCallbackAsync callback
  = liftDOM
      (SQLStatementCallback . Callback <$>
         function ""
           (\ _ _ [transaction, resultSet] ->
              fromJSVal resultSet >>=
                \ resultSet' ->
                  fromJSVal transaction >>= \ transaction' -> callback transaction'
                    resultSet'))