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