diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2009-12-27 13:27:24 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2009-12-27 13:27:24 +0100 |
| commit | d8c33353664a28fd4af4f1c67c9c5c1c81174b6a (patch) | |
| tree | 26bc9e5a37d605b36db315b028f258bd48fbb052 /src | |
| parent | 586998c9119d33708f21d6365d6f19cd1869b439 (diff) | |
| download | hakyll-d8c33353664a28fd4af4f1c67c9c5c1c81174b6a.tar.gz | |
Removed some strange characters from the source file (I don't even know how they got there).
Diffstat (limited to 'src')
| -rw-r--r-- | src/Network/Hakyll/SimpleServer.hs | 18 |
1 files changed, 9 insertions, 9 deletions
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 () |