Get text input on click

Index.hs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecursiveDo #-}

import Reflex.Dom
import qualified Data.Text as T

main :: IO ()
main = mainWidget $ do
  el "h1" $ text "Reflex FRP Autocomplete Example - Canva Frontend Meetup"
  el "h2" $ text "Part 2 - Adding updating a Dynamic on button click"
  el "section" $ do
    addItem

addItem :: MonadWidget t m => m ()
addItem = mdo
  addItemText <- textInput $ def
    & setValue .~ ("" <$ eAddItemClick)
  eAddItemClick <- button "Add"
  let evText = tag (current (value addItemText)) eAddItemClick
  el "p" $ dynText =<< holdDyn "" evText