Content types on static files

1 files changed, 6 insertions, 3 deletions

diff --git a/src/Main.hs b/src/Main.hs
index 246b5d3..c7bc648 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -286,7 +286,10 @@ mainServe confpath = do
 
   index <- initIndex (confLogsDir config) (econfChannels config)
 
-  let staticFiles = ["style.css", "robots.txt", "favicon.png"]
+  let staticFiles =
+        [("style.css", "text/css")
+        ,("robots.txt", "text/plain")
+        ,("favicon.png", "image/png")]
 
   let settings = defaultSettings { setPort = confPort config }
 
@@ -303,8 +306,8 @@ mainServe confpath = do
           pageCalendar config index alias
         ["cal", TE.decodeUtf8' -> Right alias, TE.decodeUtf8' -> Right date] ->
           pageCalendarDay config index req alias date
-        [fname] | fname `elem` staticFiles ->
-          return $ responseFile status200 [] ("pages/" ++ BS8.unpack fname)
+        [fname] | Just mime <- lookup fname staticFiles ->
+          return $ responseFile status200 [("Content-Type", mime)] ("pages/" ++ BS8.unpack fname)
         _ ->
           sendText404 "URL not found"