EVEN THO rats are excellent pets, removing them from these options because there's some vertical overwhelm

This commit is contained in:
Tessa Kelly 2021-11-22 16:29:03 -08:00
parent 37706de125
commit 9234613c7b

View File

@ -147,14 +147,12 @@ examples :
examples selectionSettings = examples selectionSettings =
[ ( Dogs, selectionSettings.dogs ) [ ( Dogs, selectionSettings.dogs )
, ( Cats, selectionSettings.cats ) , ( Cats, selectionSettings.cats )
, ( Rats, selectionSettings.rats )
] ]
type Selection type Selection
= Dogs = Dogs
| Cats | Cats
| Rats
selectionToString : Selection -> String selectionToString : Selection -> String
@ -166,9 +164,6 @@ selectionToString selection =
Cats -> Cats ->
"Cats" "Cats"
Rats ->
"Rats"
{-| -} {-| -}
type alias State = type alias State =
@ -190,7 +185,6 @@ init =
type alias SelectionSettings = type alias SelectionSettings =
{ dogs : List ( String, RadioButton.Attribute Selection Msg ) { dogs : List ( String, RadioButton.Attribute Selection Msg )
, cats : List ( String, RadioButton.Attribute Selection Msg ) , cats : List ( String, RadioButton.Attribute Selection Msg )
, rats : List ( String, RadioButton.Attribute Selection Msg )
} }
@ -199,7 +193,6 @@ initSelectionSettings =
Control.record SelectionSettings Control.record SelectionSettings
|> Control.field "Dogs" controlAttributes |> Control.field "Dogs" controlAttributes
|> Control.field "Cats" controlAttributes |> Control.field "Cats" controlAttributes
|> Control.field "Rats" controlAttributes
controlAttributes : Control (List ( String, RadioButton.Attribute Selection Msg )) controlAttributes : Control (List ( String, RadioButton.Attribute Selection Msg ))