-1

同样是这里的 n00b：使用文档中的以下代码尝试 Warp 和 WAI。

{-# LANGUAGE OverloadedStrings, DeriveGeneric #-}
import Network.Wai
import Network.HTTP.Types
import Network.Wai.Handler.Warp (run)
app3 :: Application
app3 request respond = respond $ case rawPathInfo request of
    "/"     -> index
    "/raw/" -> plainIndex
    _       -> notFound

plainIndex :: Response
plainIndex = responseFile
    status200
    [("Content-Type", "text/plain")]
    "index.html"
    Nothing

notFound :: Response
notFound = responseLBS
    status404
    [("Content-Type", "text/plain")]
    "404 - Not Found"

在 GHCi 中运行 plainIndex 会返回：

<interactive>:12:1: error:
    • No instance for (Show Response) arising from a use of ‘print’
    • In a stmt of an interactive GHCi command: print it
*Main> :r
[1 of 1] Compiling Main             ( WAI.hs, interpreted )

两个问题合二为一：你能帮我解决这个问题吗，并且对此进行扩展：我是唯一一个在遵循文档示例时经常遇到此类问题的人？

4

1 回答 1

2

在 GHCi 中运行plainIndex，GHCi 尝试计算Response并在终端中打印。实例定义给Show定类型应如何表示为String. 库作者选择不为 提供Show实例Response，可能是为了将其表示与接口分开。

响应的各个部分都有Show实例，因此您可以使用Wai 提供的访问器：

> responseStatus plainIndex
> responseHeaders plainIndex

更多关于 Response 的文档。

于 2018-12-04T16:59:57.230 回答