From d8c33353664a28fd4af4f1c67c9c5c1c81174b6a Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Sun, 27 Dec 2009 13:27:24 +0100 Subject: Removed some strange characters from the source file (I don't even know how they got there). --- src/Network/Hakyll/SimpleServer.hs | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'src/Network') diff --git a/src/Network/Hakyll/SimpleServer.hs b/src/Network/Hakyll/SimpleServer.hs index a6902e0..9adadb5 100644 --- a/src/Network/Hakyll/SimpleServer.hs +++ b/src/Network/Hakyll/SimpleServer.hs @@ -78,16 +78,16 @@ createGetResponse request = do getMIMEHeader :: FilePath -> [(B.ByteString, B.ByteString)] getMIMEHeader fileName = case result of (Just x) -> [(B.pack "Content-Type", B.pack x)] _ -> [] - where result = lookup (takeExtension fileName) [ (".css", "text/css") - , (".gif", "image/gif") - , (".htm", "text/html") - , (".html", "text/html") - , (".jpeg", "image/jpeg") - , (".jpg", "image/jpeg") - , (".js", "text/javascript") - , (".png", "image/png") + where result = lookup (takeExtension fileName) [ (".css", "text/css") + , (".gif", "image/gif") + , (".htm", "text/html") + , (".html", "text/html") + , (".jpeg", "image/jpeg") + , (".jpg", "image/jpeg") + , (".js", "text/javascript") + , (".png", "image/png") , (".txt", "text/plain") - , (".xml", "text/xml")   + , (".xml", "text/xml") ] respond :: Handle -> IO () -- cgit v1.2.3