在 Elm 中编辑起始页

Question

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

页面左上角的标志（代码中带Ad的部分）
整个页脚（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
            ]
        ]
    ]

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

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

将完整的错误消息放入您的问题中。
阅读 Elm official guide 如果您还没有阅读过。不会花太长时间，有助于理解语言。
正在构造一个minimal working example。这就是我在卡住时所做的。通常你会在构造它的时候找到解决方案。

在 Elm 中编辑起始页

Editing start page in Elm

javascript

html

typescript

sass

elm