Support UI.disabledButton

While this isn't necessary, it tidies up the code a bit.
This commit is contained in:
William Carroll 2020-07-31 19:32:30 +01:00
parent 4d30a80487
commit cf5d211477

View file

@ -124,6 +124,18 @@ simpleButton { label, handleClick } =
}
disabledButton :
{ label : String }
-> Html State.Msg
disabledButton { label } =
baseButton
{ label = label
, enabled = False
, handleClick = State.DoNothing
, extraClasses = []
}
textButton :
{ label : String
, handleClick : msg