Use of Reflex.Dom.Contrib.Widgets.ButtonGroup

Main.hs

{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE TupleSections #-}
{-# LANGUAGE RecursiveDo #-}

module Main where

import Data.Bool
import Data.Char
import Data.Default
import qualified Data.Map as Map
import Data.Monoid
import Reflex.Dom
import Reflex.Dom.Contrib.Widgets.Common
import Reflex.Dom.Contrib.Widgets.ButtonGroup

main :: IO ()
main = mainWidget $ mdo

  res' <- radioGroup (constDyn "g") (constDyn [(100 :: Int, "Test"), (300, "Test2"), (200, "Hello")])
          (WidgetConfig {_widgetConfig_initialValue = Nothing
                        ,_widgetConfig_setValue     = never
                        ,_widgetConfig_attributes   = constDyn mempty})
  display (_hwidget_value res')

  res'' <- bootstrapButtonGroup (constDyn [(100,"Test"), (200,"Test2"), (300,"Hello")])
           (WidgetConfig { _widgetConfig_initialValue = Nothing
                         , _widgetConfig_setValue = change res'
                         , _widgetConfig_attributes = constDyn mempty})
  display (value res'')

  lastRes'' <- holdDyn Nothing (traceEvent "TEST" (change res''))
  display lastRes''
  el "br" $ return ()
  display (_hwidget_hasFocus res'')
  el "br" $ return ()
  display =<< holdDyn "" (fmap show (leftmost [_hwidget_keyup res''
                                              , _hwidget_keydown res''
                                              , _hwidget_keypress res'']))