ThrottleVDebounce.hs

frontend :: Frontend (R FrontendRoute)
frontend = Frontend
  { _frontend_head = el "title" $ text "Obelisk Minimal Example"
  , _frontend_body = prerender_ blank $ do
      i <- inputElement def
      t <- throttle 2 (_inputElement_input i)
      d <- debounce 2 (_inputElement_input i)
      tD <- holdDyn "" t
      dD <- holdDyn "" d
      text "throttled("
      dynText tD
      text " ) debounced("
      dynText dD
      text ")"
  }