获取请求时出现 Elm NetworkError，但控制台说没问题答案

【问题标题】：Elm NetworkError on get request, but console says it's fine获取请求时出现 Elm NetworkError，但控制台说没问题
【发布时间】：2018-07-30 01:14:25
【问题描述】：

我正在 Elm 中构建我的第一个 Web 应用程序，但我遇到了一个问题，即当我向本地服务器发出 get 请求时，即使浏览器控制台说它可以工作，Elm 也会说它是“NetworkError”。

我做了一个最小的例子如下：

服务器是用 Haskell 和 Scotty 制作的：

{-# LANGUAGE OverloadedStrings #-}
module Main where

import Web.Scotty
import Data.Text.Lazy (pack)

main :: IO ()
main = scotty 3000 $ get "/" $ text $ pack "a"

它所做的只是在您向 localhost:3000 发出获取请求时以字母“a”响应。 Elm 应用程序只显示响应（如果有）和错误（如果有）和一个按钮来执行获取请求：

import Http exposing (getString, send, Error)
import Html exposing (Html, text, br, button, body, program)
import Html.Events exposing (onClick)

type Msg
  = DataRequest (Result Error String)
  | Refresh

type alias Model =
  { response : String
  , err : String
  }

main : Program Never Model Msg
main = program
  { init = init
  , view = view
  , update = update
  , subscriptions = subscriptions
  }

subscriptions : Model -> Sub Msg
subscriptions _ = Sub.none

init : (Model, Cmd Msg)
init = ({ response = "", err = ""} , Cmd.none)

update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
  case msg of
    DataRequest (Err err) -> ({ model | err = toString err},     Cmd.none)
    DataRequest (Ok response) -> ({model | response = response}, Cmd.none)
    Refresh -> (model, send DataRequest (getString "http://localhost:3000"))

view : Model -> Html Msg
view {response, err} =
  body []
    [ text <| "Response: " ++ response
    , br [] []
    , text <| "Error: " ++ err
    , br [] []
    , button [ onClick Refresh ] [ text "Send request" ]
    ]

这是我执行获取请求时浏览器控制台的屏幕截图。我对这些东西不太了解，但据我所知，它看起来不错。

我想要的是“响应”在其后显示字母“a”，而“错误”为空白。相反，'Error' 是 'NetworkError' 而 'Response' 是空白的。

我已将这个最小的示例放在 Git 存储库中，以防有人愿意尝试并告诉我出了什么问题：

https://github.com/8n8/elmnetworkerror

（我知道Elm http request returns NetworkError for successful requests 有一个非常相似的问题，但还没有答案，我认为它会从一个完整的最小示例中受益。）

【问题讨论】：

标签： http haskell elm scotty

【解决方案1】：

我不能说你的错误是什么，但由于 CORS，我得到了一个错误：

Main.elm:1 Failed to load http://localhost:3000/:
No 'Access-Control-Allow-Origin' header is present on the requested resource.
Origin 'http://localhost:8000' is therefore not allowed access.

因此，我已调整您的 Main.{hs,elm}，以便在访问发生时从同一服务器提供文件：

Main.elm

Refresh -> (model, send DataRequest (getString "/data"))

Main.hs

main = scotty 3000 $ do
  get "/" $ file "../index.html"
  get "/data" $ text $ pack "a"

我没有使用elm-reactor，而是运行elm-make src/Main.elm --output=index.html

【讨论】：