在Elm中编辑起始页

编程问答 2022-06-08

问题描述

这是我第一次与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
    ]

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

elmhtmljavascriptsasstypescripttypescript