Question

对于每个dir..，它是一个Route，它接收Request并返回由Response创建的Server。我想知道代码的每一行中是否包含Request和Response。提前谢谢！

simpleHTTP serverConf $ do
decodeBody (defaultBodyPolicy "/tmp/" 4096 4096 4096)
msum [ do
      nullDir
      seeOther "graph" (toResponse "Redirecting to /graph"),
      dir "grid" gridResponse,
      dir "graph" graphResponse,
      dir "image" graphImageResponse,
      dir "timetable-image" $ look "courses" >>= \x -> look "session" >>= timetableImageResponse x,
      dir "graph-fb" $ seeOther redirectUrlGraphEmail $ toResponse "",
      dir "post-fb" $ seeOther redirectUrlGraphPost $ toResponse "",
      dir "test" $ look "code" >>= getEmail,
      dir "test-post" $ look "code" >>= postToFacebook,
      dir "post" postResponse,
      dir "draw" drawResponse,
      dir "about" $ aboutResponse aboutContents,
      dir "privacy" $ privacyResponse privacyContents,
      dir "static" $ serveDirectory DisableBrowsing [] staticDir,
      dir "course" $ look "name" >>= retrieveCourse,
      dir "all-courses" $ liftIO allCourses,
      dir "graphs" $ liftIO queryGraphs,
      dir "course-info" $ look "dept" >>= courseInfo,
      dir "depts" $ liftIO deptList,
      dir "timesearch" searchResponse,
      dir "calendar" $ lookCookieValue "selected-lectures" >>= calendarResponse,
      dir "get-json-data" $ look "graphName" >>= \graphName -> liftIO $ getGraphJSON graphName,
      dir "loading" $ look "size" >>= loadingResponse,
      dir "save-json" $ look "jsonData" >>= \jsonStr -> look "nameData" >>= \nameStr -> liftIO $ saveGraphJSON jsonStr nameStr,
      notFoundResponse
]

Answer 1

每一行都是处理程序。将处理程序视为一个接收请求并返回响应的函数。

graphReponse是一个以某种方式处理请求的处理程序。

dir修改处理程序，以便除非请求URL以某种方式开始，否则不会调用它。

在处理程序的名称中使用单词Response没有什么特别之处。 graphResponse只是函数的名称 - 您可以使用任何名称作为处理函数。

您拥有的是处理程序列表，例如：

[ handler1,
  handler2,
  ...,
  notFoundResponse
]

当收到请求时，会检查handler1是否会处理请求。如果没有，则检查handler2，依此类推。如果没有处理程序接受请求，则调用notFoundHandler，这可能会生成404页面。

这就是为什么dir ...部分很重要 - 它会阻止处理程序响应，除非url以某种方式开始。

每个Route是否包含其请求和服务器返回的响应？

1 个答案: