From d5937514e3a256d3f68a18ae7fe5ab0679316abc Mon Sep 17 00:00:00 2001 From: Julien Moutinho Date: Tue, 4 Mar 2025 21:43:39 +0100 Subject: [PATCH] feat(MIME): add `CSS` media type --- src/Literate/Web/Types/MIME.hs | 7 +++++++ 1 file changed, 7 insertions(+) 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 -- 2.47.2