feat(MIME): add `CSS` media type

diff --git a/src/Literate/Web/Types/MIME.hs b/src/Literate/Web/Types/MIME.hs
index 77f7cabe62e31f8b208fead44ceffb15d6ad1d1d..a1546e9205c7a5e1c6c73e413e37ff864822e905 100644 (file)
--- a/src/Literate/Web/Types/MIME.hs
+++ b/src/Literate/Web/Types/MIME.hs
@@ -68,6 +68,13 @@ charsetUTF8 = (Media./: ("charset", "utf-8"))
 mimeAny :: MediaType
 mimeAny = "*/*"
 
+-- ** Type 'CSS'
+data CSS deriving (Typeable)
+instance MediaTypeFor CSS where
+  mediaTypeFor _t = charsetUTF8 $ "text" Media.// "css"
+instance FileExtension CSS where
+  fileExtension = "css"
+
 -- ** Type 'JSON'
 data JSON deriving (Typeable)
 instance MediaTypeFor JSON where