サーバントで一般的なコンテンツタイプを送信する

Question

ByteStringをクライアント（ブラウザ）に中継しようとしています。クライアントは要求されているドキュメントのコンテンツタイプを知らないので、クライアントに適切なコンテンツタイプの応答を返そうとしています。文書は、画像またはpdfまたはワード文書などであってもよい。

例えば、クライアントは/document?id=55を要求し、サーバは適切なコンテンツタイプおよび関連するByteStringで応答する。

私は例hereに従っており、画像用に何かを作成しました。

data IMAGE 

instance Accept IMAGE where 
    contentType _ = "image" M.// "jpeg" 

instance MimeRender IMAGE LBS.ByteString where 
    mimeRender _ = id 

課題は、それがhereに行われているように私には、適切なMIMEタイプと反応する方法がないので、クライアントはいくつかの特定のAccept:ヘッダでリクエストを送信することはありませんです。さらに、上記の画像は、pdf、docxなどではなく、ブラウザではpngを返信してもjpegを返信すると仮定しています）。

私はMyDynamicContent Stringようparamaterizedタイプについて考えて、私は、実行時にコンテンツタイプを渡しますが、私はつまり、私は'[JSON]の代わりに何を使用する私のAPIを宣言しますかわかりません。例が単なる単純なデータ型であるため、このようなことも可能ではありません。

だから私の質問は、私は応答として、いくつかのByteStringを送信し、動的にContent-Typeヘッダーを設定したい場合は、何がservant

更新使用してそれを行うための最善の方法となります、である：私はissueを開いたを

Answer 1

それは可能だが、ハックのビット：テストそれ

{-# LANGUAGE DataKinds #-} 
{-# LANGUAGE FlexibleContexts #-} 
{-# LANGUAGE FlexibleInstances #-} 
{-# LANGUAGE MultiParamTypeClasses #-} 
{-# LANGUAGE OverloadedStrings #-} 
{-# LANGUAGE OverlappingInstances #-} 
module DynCT where 

import Control.Monad.Trans.Either 
import Data.ByteString.Lazy (ByteString) 
import Servant 
import Servant.API.ContentTypes 
import Network.Wai.Handler.Warp 

data WithCT = WithCT { header :: ByteString, content :: ByteString } 

instance AllCTRender xs WithCT where 
    handleAcceptH _ _ (WithCT h c) = Just (h, c) 

type API = Get '[] WithCT 

api :: Proxy API 
api = Proxy 

server :: Server API 
server = return $ WithCT { header = "example", content = "somecontent" } 

main :: IO() 
main = run 8000 $ serve api server 

：

% curl localhost:8000 -v 
... 
< HTTP/1.1 200 OK 
... 
< Content-Type: example 
< 
... 
somecontent% 

考え方は、AllCTRenderの重複するインスタンスを宣言することによって、通常の動作をオーバーライドすることです。 servant-client、servant-docsなどの余分な足の仕事をしなければならない場合もあるでしょう。それを考えると、より完全なサポートのために、これに関するレポに問題を開くことができます。