@@ -78,16 +78,16 @@ createGetResponse request = do
7878getMIMEHeader :: FilePath -> [(B.ByteString, B.ByteString)]
7979getMIMEHeader fileName = case result of (Just x) -> [(B.pack "Content-Type", B.pack x)]
8080 _ -> []
81− where result = lookup (takeExtension fileName) [ (".css", "text/css")
82− , (".gif", "image/gif")
83− , (".htm", "text/html")
84− , (".html", "text/html")
85− , (".jpeg", "image/jpeg")
86− , (".jpg", "image/jpeg")
87− , (".js", "text/javascript")
88− , (".png", "image/png")
81+ where result = lookup (takeExtension fileName) [ (".css", "text/css")
82+ , (".gif", "image/gif")
83+ , (".htm", "text/html")
84+ , (".html", "text/html")
85+ , (".jpeg", "image/jpeg")
86+ , (".jpg", "image/jpeg")
87+ , (".js", "text/javascript")
88+ , (".png", "image/png")
8989 , (".txt", "text/plain")
90− , (".xml", "text/xml")
90+ , (".xml", "text/xml")
9191 ]
9292
9393respond :: Handle -> IO ()