Elm String of Strings

Main.elm

module Main exposing (main)

import Browser
import Html exposing (Html, button, div, text)
import Html.Events exposing (onClick)


type alias Model =
    String


type Msg
    = None

initialModel : Model
initialModel =
    ""

update : Msg -> Model -> Model
update msg model =
    case msg of
        None ->
            model
            
            
combineStrings : List String -> String
combineStrings list =
    if List.isEmpty list then
        ""
    else
        case list of
            x::xs ->
                let
                    formatted =
                        List.map (\s -> s ++ "'" ++ "'") list
                in
                "'" ++ (List.foldr (++) "" formatted) ++ ""
                |> String.dropRight 1
                
            _ ->
                ""


view : Model -> Html Msg
view model =
    div [] [ text <| combineStrings ["head head head head", "main main . sidebar", "footer footer footer footer"] ]


main : Program () Model Msg
main =
    Browser.sandbox
        { init = initialModel
        , view = view
        , update = update
        }