每个路由是否包括其请求和服务器返回的响应

Question

对于每个dir..，它是一个Route，它接受一个Request并返回一个由Server创建的Response。我想知道代码的每一行中是否包含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 以某种方式开始，否则它会阻止处理程序响应。