widget.hs

listWidget :: MonadWidget t m => m ()
listWidget = do
  rec oldlist :: Dynamic t [Event t Int]
                          <- simpleList newlist ((sample . current) >=> button')
      clicked :: Event t Int <- leftmost <$> (sample $ current oldlist)
      newlist :: Dynamic t [Int] <- holdDyn [0..10] ((enumFromTo 0 . succ) <$> clicked)
      val :: Dynamic t Int <- (holdDyn 0 clicked)
      divClass "container" $ (dynText $ fmap (("Last clicked value: " <>) . pack . show) val)
  return ()