以ELM显示返回数组的总数

我是ELM的新手，我正在扩展一个基本的应用程序，它可以显示降价文档中的演示文稿

我正在更改glitch应用程序的main.elm文档，以显示可用页面的总数

如果我在收到响应时设置总数（在本块中）

RcvSlides resp->
案例响应
Ok幻灯片->
（{模型
|slides=只是这是因为您在收到幻灯片时忘记设置
total
：

RcvSlides resp->
案例响应
Ok幻灯片->
允许
nextSlides=Array.fromList请创建一个列表，并将其与所有相关信息一起包含在问题本身中。堆栈溢出旨在成为有用问题和答案的知识库，而不是帮助台。一旦出现故障的代码更改或完全停止使用，这将不会非常有用。
RcvSlides resp ->
    case resp of
        Ok slides ->
            ( { model
                | slides = Just <| Array.fromList <| String.split "^^^^" slides
              }
            , Cmd.none
            )

        Err _ ->
            ( { model | slides = Nothing }
            , Cmd.none
            )

RcvSlides resp ->
    case resp of
        Ok slides ->
            let
                nextSlides = Array.fromList <| String.split "^^^^" slides
                nextTotal = Array.length nextSlides
                nextModel = { model
                    | slides = Just <| nextSlides
                    , total = nextTotal
                    }
            in
            ( nextModel, Cmd.none )

        Err _ ->
            ( { model | slides = Nothing }
            , Cmd.none
            )