在这里再次使用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 )
两个问题合二为一:您能帮助我解决此问题吗,以及除此之外:在遵循文档示例时,我是唯一经常遇到此类问题的人吗?
答案 0 :(得分:2)
在GHCi中运行plainIndex
,GHCi尝试计算Response
,然后在终端中打印。 Show
实例定义如何将给定类型表示为String
。库作者选择不为Show
提供Response
实例,可能是为了将其表示与其界面分开。
响应的各个部分都有Show
个实例,因此您可以使用accessors provided by Wai:
> responseStatus plainIndex
> responseHeaders plainIndex