RethinkingMaybe4.elm

view : Model -> Html Msg
view model =
    case model.selectedGender of
        Just x ->
            case x of 
                Masculine -> 
                    div []  [
                    div [] 
                        [ button [onClick (SelectGender Masculine), style "background-color" "blue"] [text "Masculine"]    
                        , button [onClick (SelectGender Feminine)] [text "Feminine"]   
                        , button [onClick (SelectGender Neuter)] [text "Neuter"] 
                        ] 
                   , div [] [text (Debug.toString model)]
                   ]
                Feminine ->
                    div []  [
                    div [] 
                    [ button [onClick (SelectGender Masculine)] [text "Masculine"]    
                    , button [onClick (SelectGender Feminine), style "background-color" "blue"] [text "Feminine"]   
                    , button [onClick (SelectGender Neuter)] [text "Neuter"] 
                    ]
         
                   , div [] [text (Debug.toString model)]
                   ]
                Neuter ->
                    div []  [
                    div [] 
                    [ button [onClick (SelectGender Masculine)] [text "Masculine"]    
                    , button [onClick (SelectGender Feminine)] [text "Feminine"]   
                    , button [onClick (SelectGender Neuter), style "background-color" "blue" ] [text "Neuter"] 
                    ]
                   , div [] [text (Debug.toString model)]
                   ]
          
        Nothing ->
           div []
               [ button [onClick (SelectGender Masculine)] [text "Masculine"]    
               , button [onClick (SelectGender Feminine)] [text "Feminine"]   
               , button [onClick (SelectGender Neuter)] [text "Neuter"] 
            ,div [] [text (Debug.toString model)]
              ]