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