@@ -73,7 +73,7 @@ createGetResponse request = do
7373 else B.unpack (requestURI request)
7474 exists <- doesFileExist fileName
7575 if exists then catch (create200 fileName) create500
76− else return $ errorResponse 400 (B.pack "Not Found")
76+ else return $ errorResponse 404 (B.pack "Not Found")
7777 where create200 fileName = do
7878 body <- B.readFile fileName
7979 let headers = [ (B.pack "Content-Length", B.pack $ show $ B.length body)