Skip to content

Instantly share code, notes, and snippets.

@ali-abrar

ali-abrar/recText.hs

Created November 25, 2015 19:01
Show Gist options
  • Save ali-abrar/b2c867b6e0b022e79f11 to your computer and use it in GitHub Desktop.
Save ali-abrar/b2c867b6e0b022e79f11 to your computer and use it in GitHub Desktop.
Download ZIP
Show results of textInput before textInput in DOM
Raw
recText.hs
{-# LANGUAGE RecursiveDo #-}
import Reflex.Dom
main :: IO ()
main = mainWidget $ el "div" $ do
rec _ <- dynText $ _textInput_value t
t <- textInput def
return ()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment