blah.hs

navbarBurger :: forall t m. MonadWidget t m
          => T.Text
          -> T.Text
          -> m ()
navbarBurger elm dataTarget = do
  rec
    let
      dynAttrs = fmap (\s -> if s then Map.fromList [("class","navbar-burger is-active"), ("data-target",dataTarget)]
                                else Map.fromList [("class","navbar-burger"), ("data-target",dataTarget)])
    (ev1,_) <- elDynAttr' elm dynAttrs $ pure ()
    click   <- holdDyn False $ True <$ domEvent Click ev1
    
  return ()