@@ -54,7 +54,7 @@ Now we redefine `responseBody` to refer to that file:
5454app2 :: Application
5555app2 _ = return index
5656
57−index = ResponseFile
57+index = responseFile
5858 status200
5959 [("Content-Type", "text/html")]
6060 "index.html"
@@ -79,7 +79,7 @@ app3 request = case rawPathInfo request of
7979 "/raw/" -> return plainIndex
8080 _ -> return notFound
8181
82−plainIndex = ResponseFile
82+plainIndex = responseFile
8383 status200
8484 [("Content-Type", "text/plain")]
8585 "index.html"