Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

[MIME FILES] Adding ico, eot, ttf, woff, woff2 mime files. #4

Merged
merged 1 commit into from
Mar 8, 2018
Merged

[MIME FILES] Adding ico, eot, ttf, woff, woff2 mime files. #4

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
73 changes: 73 additions & 0 deletions src/Servant/Static/TH/Internal/Mime.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -96,10 +96,15 @@ extensionMimeTypeMap =
, ("html", MimeTypeInfo [t|HTML|] [t|Html|] htmlToExp)
, ("jpeg", MimeTypeInfo [t|JPEG|] [t|ByteString|] byteStringToExp)
, ("jpg", MimeTypeInfo [t|JPEG|] [t|ByteString|] byteStringToExp)
, ("ico", MimeTypeInfo [t|ICO|] [t|ByteString|] byteStringToExp)
, ("js", MimeTypeInfo [t|JS|] [t|ByteString|] byteStringToExp)
, ("png", MimeTypeInfo [t|PNG|] [t|ByteString|] byteStringToExp)
, ("svg", MimeTypeInfo [t|SVG|] [t|ByteString|] byteStringToExp)
, ("txt", MimeTypeInfo [t|TXT|] [t|ByteString|] byteStringToExp)
, ("eot", MimeTypeInfo [t|EOT|] [t|ByteString|] byteStringToExp)
, ("ttf", MimeTypeInfo [t|TTF|] [t|ByteString|] byteStringToExp)
, ("woff", MimeTypeInfo [t|WOFF|] [t|ByteString|] byteStringToExp)
, ("woff2", MimeTypeInfo [t|WOFF2|] [t|ByteString|] byteStringToExp)
]

-- | Just like 'extensionToMimeTypeInfo', but throw an error using 'fail' if
Expand Down Expand Up @@ -165,6 +170,19 @@ instance MimeRender JPEG ByteString where
mimeRender :: Proxy JPEG -> ByteString -> LByteString.ByteString
mimeRender _ = LByteString.fromStrict

-- ICO

data ICO deriving Typeable

-- | @icon\/ico@
instance Accept ICO where
contentType :: Proxy ICO -> MediaType
contentType _ = "image" // "x-icon"

instance MimeRender ICO ByteString where
mimeRender :: Proxy ICO -> ByteString -> LByteString.ByteString
mimeRender _ = LByteString.fromStrict

-- JS

data JS deriving Typeable
Expand Down Expand Up @@ -216,3 +234,58 @@ instance Accept TXT where
instance MimeRender TXT ByteString where
mimeRender :: Proxy TXT -> ByteString -> LByteString.ByteString
mimeRender _ = LByteString.fromStrict

-- EOT

data EOT deriving Typeable

-- | @fonts\/eot@
instance Accept EOT where
contentType :: Proxy EOT -> MediaType
contentType _ = "application" // "vnd.ms-fontobject"

instance MimeRender EOT ByteString where
mimeRender :: Proxy EOT -> ByteString -> LByteString.ByteString
mimeRender _ = LByteString.fromStrict

-- TTF

data TTF deriving Typeable

-- | @fonts\/ttf@
instance Accept TTF where
contentType :: Proxy TTF -> MediaType
contentType _ = "application" // "x-font-truetype"

instance MimeRender TTF ByteString where
mimeRender :: Proxy TTF -> ByteString -> LByteString.ByteString
mimeRender _ = LByteString.fromStrict

-- WOFF

data WOFF deriving Typeable

-- | @fonts\/woff@
instance Accept WOFF where
contentType :: Proxy WOFF -> MediaType
contentType _ = "font" // "woff"

instance MimeRender WOFF ByteString where
mimeRender :: Proxy WOFF -> ByteString -> LByteString.ByteString
mimeRender _ = LByteString.fromStrict

-- WOFF2

data WOFF2 deriving Typeable

-- | @fonts\/woff2@
instance Accept WOFF2 where
contentType :: Proxy WOFF2 -> MediaType
contentType _ = "font" // "woff2"

instance MimeRender WOFF2 ByteString where
mimeRender :: Proxy WOFF2 -> ByteString -> LByteString.ByteString
mimeRender _ = LByteString.fromStrict