From: sabadev <saba@sabadev.xyz>
Date: Mon, 12 Apr 2021 00:21:57 +0000 (-0400)
Subject: Generified image types.
X-Git-Url: http://sabadev.xyz:4321/?a=commitdiff_plain;h=d2cbea0f577c30dba41b02310c28f67a63aa74da;p=website.git

Generified image types.
---

diff --git a/src/ApiTypes.hs b/src/ApiTypes.hs
index 7e54905..61cefa5 100644
--- a/src/ApiTypes.hs
+++ b/src/ApiTypes.hs
@@ -16,7 +16,7 @@ type Api = Styling :<|> Page
 type Page = ChangeTheme :<|> ImageLink :<|> MainPage :<|> BlogPost
 type MainPage = ThemeParam :> Get '[HTML] (Html ())
 type BlogPost = ThemeParam :> Capture "id" BlogId :> Get '[HTML] (Html ())
-type ImageLink = "image" :> Capture "id" ImageId :> Get '[PNG] ByteString
+type ImageLink = "image" :> Capture "id" ImageId :> Get '[IMG] ByteString
 type Styling = "style" :> ThemeParam :> Get '[CSS] C.Css
 type ChangeTheme = ReqBody '[FormUrlEncoded] Theme :> Capture "id" BlogId :> Post '[HTML] (Html ())
 type ThemeParam = QueryParam "theme" Theme
diff --git a/src/ImageContentType.hs b/src/ImageContentType.hs
index e457160..2bc456b 100644
--- a/src/ImageContentType.hs
+++ b/src/ImageContentType.hs
@@ -4,10 +4,10 @@ import Data.ByteString.Lazy (ByteString(..))
 import Network.HTTP.Media ((//), (/:))
 import Servant
 
-data PNG
+data IMG
 
-instance Accept PNG where
-  contentType _ = "image" // "png"
+instance Accept IMG where
+  contentType _ = "image" // "*"
 
-instance MimeRender PNG ByteString where
+instance MimeRender IMG ByteString where
   mimeRender _ val = val