在 Elm 中编辑起始页

Question

这是我第一次与 Elm 合作。 如果不是解决方案，您能否建议一个可以帮助我解决此类问题的资源？ 下面给出的代码是一个网站的起始页，我需要从中删除一些东西 -->

1. 页面左上角的标志（代码中带有Ad的部分）
2. 整个页脚（2 个其他徽标和一个版本字符串）。

我尝试仅删除处理此问题的代码，但它开始返回有关它是 Html Global.Msg 的错误，并且代码中存在结构错误。关于type annotation : 的错误以及这不是一个函数。

这是我第一次与Elm 合作，所以我什么都听不懂。 我也无法得到确切的错误，因为我在得到它们并使用原版数小时后问了这个问题。
无论如何谢谢;)

view : Shared -> Model -> List (Html Global.Msg)
view shared model =
    let
        r =
            model.route

        yum-cheeseAd { baseUrl } =
            Html.blankA
                [ HtmlA.href baseUrl, HtmlA.id "yum-cheese-ad", Strings.YumCheeseWhereToGet |> Lang.title shared ]
                [ Html.div []
                    [ Icon.boxOpen |> Icon.viewIcon
                    , Html.span [] [ Strings.YumCheese |> Lang.string shared |> Html.text ]
                    ]
                ]
    in
    [ Html.div [ HtmlA.class "page start" ]
        [ overlay shared model.overlay
        , Html.header [ HtmlA.class "title-card" ]
            [ Html.h1 [] [ Html.div [ HtmlA.class "card-slicer" ] [ Call.viewUnknown shared [] ] ]
            , Html.div [ HtmlA.class "subtitle" ]
                [ Html.div [ HtmlA.class "card-slicer" ]
                    [ Response.view shared Configure.fake Card.Front [] (subtitleCard shared)
                    ]
                ]
            ]
        , Card.view []
            [ Tabs.view shared
                { selected = r.section
                , change = \s -> Route.Start { r | section = s } |> Global.ChangePage
                , ids = NeList New [ Join model.gameCode, Find, About ]
                , tab = tabFor
                , equals = sectionsMatch
                }
            , sectionContent shared model
            ]
        , Html.footer [ HtmlA.class "version-info" ]
            [ Html.div [ HtmlA.class "logos" ]
                [ Html.blankA
                    [ HtmlA.class "logo"
                    , Strings.Project |> Lang.title shared
                    , HtmlA.href "https://something.com/"
                    ]
                    [ Icon.viewStyled [ Strings.LogoDescription |> Lang.alt shared ] Icon.YumCheese ]
                , Html.blankA
                    [ HtmlA.class "logo"
                    , Strings.DevelopedBy |> Lang.title shared
                    , HtmlA.href "https://www.qazwsx.com/"
                    ]
                    [ Icon.viewStyled [ Strings.LogoDescription |> Lang.alt shared ] Icon.rereadGames ]
                ]
            , Html.p [ HtmlA.class "version" ]
                [ Html.text "\""
                , Strings.YumCheese |> Lang.html shared
                , Html.text "\" "
                , Strings.Version { versionNumber = Version.version } |> Lang.html shared
                ]
            ]
        ]
    , shared.sources.yumcheese |> Maybe.map yumcheeseAd |> Maybe.withDefault Html.nothing
    ]

Answer 1

这个呢：

view : Shared -> Model -> List (Html Global.Msg)
view shared model =
    let
        r =
            model.route
    in
    [ Html.div [ HtmlA.class "page start" ]
        [ overlay shared model.overlay
        , Html.header [ HtmlA.class "title-card" ]
            [ Html.h1 [] [ Html.div [ HtmlA.class "card-slicer" ] [ Call.viewUnknown shared [] ] ]
            , Html.div [ HtmlA.class "subtitle" ]
                [ Html.div [ HtmlA.class "card-slicer" ]
                    [ Response.view shared Configure.fake Card.Front [] (subtitleCard shared)
                    ]
                ]
            ]
        , Card.view []
            [ Tabs.view shared
                { selected = r.section
                , change = \s -> Route.Start { r | section = s } |> Global.ChangePage
                , ids = NeList New [ Join model.gameCode, Find, About ]
                , tab = tabFor
                , equals = sectionsMatch
                }
            , sectionContent shared model
            ]
        ]
    ]

我删除了页脚和广告。您的错误听起来像是语法错误。我怀疑您在删除内容时弄乱了嵌套列表而出错了。

如果这不能解决您的问题，我建议：

1. 将完整的错误消息放入您的问题中。

2. 如果您还没有阅读 Elm official guide。它不会花费太长时间，并且有助于理解语言。

3. 构造一个minimal working example。这就是我卡住时所做的。通常，您会在构建解决方案时找到解决方案。