toggleErrorButton :: State -> Widget Action
toggleErrorButton _ = Ulmus.newWidget "toggleErrorButton" $ wlink ToggleError $
    a ! atr "class" "btn-floating purple darken-2 tooltipped" ! atr "data-position" "bottom" ! atr "data-tooltip" "Toggle error" ! atr "data-delay" "50"$
        i ! atr "class" "material-icons" $ ("error" :: String)
toggleErrorButton :: State -> Widget Action
toggleErrorButton _ = Ulmus.newWidget "toggleErrorButton" $ wlink ToggleError $
    a ! atr "class" "btn-floating purple darken-2 tooltipped" ! atr "data-position" "bottom" ! atr "data-tooltip" "Toggle error" ! atr "data-delay" "50"$
        i ! atr "class" "material-icons" $ ("error" :: String)
toggleErrorButton _ = Ulmus.newWidget "toggleErrorButton" $ wlink ToggleError $
    a ! atr "class" "btn-floating purple darken-2 tooltipped" ! atr "data-position" "bottom" ! atr "data-tooltip" "Toggle error" ! atr "data-delay" "50"$
        i ! atr "class" "material-icons" $ ("error" :: String)