From: Julien Moutinho <julm+literate-web@sourcephile.fr>
Date: Tue, 4 Mar 2025 20:43:39 +0000 (+0100)
Subject: feat(MIME): add `CSS` media type
X-Git-Url: https://git.sourcephile.fr/haskell/literate-web.git/commitdiff_plain?ds=sidebyside

feat(MIME): add `CSS` media type
---

diff --git a/src/Literate/Web/Types/MIME.hs b/src/Literate/Web/Types/MIME.hs
index 77f7cab..a1546e9 100644
--- 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