如何在Elmish中同时应用硬编码类和方法类？

module Main exposing (..)

import Html exposing (button, div)
import Html.Attributes exposing (class)

type alias Model =
    { isActive : Bool }

type Msg =
    ToggleActive

update : Msg -> Model -> Model
update msg model =
    case msg of
        ToggleActive ->
            { model | isActive = not model.isActive }

view : Model -> Html Msg
view model =
    let
        classNames =
            if model.isActive then
                "active-class static-class"
            else
                "inactive-class static-class"
    in
    div []
        [ button [ class classNames ] [ text "Toggle" ]
        ]

main : Program () Model Msg
main =
    Html.program
        { init = ( { isActive = False }, Cmd.none )
        , view = view
        , update = update
        , subscriptions = always Sub.none
        }