Gửi loại nội dung chung trong Servant

Question

Tôi đang cố gắng chuyển tiếp một số ByteString quay lại máy khách (trình duyệt). Khách hàng sẽ không biết loại nội dung của tài liệu đang được yêu cầu vì vậy tôi đang cố gửi phản hồi kiểu nội dung thích hợp cho khách hàng. Tài liệu có thể là hình ảnh hoặc pdf hoặc tài liệu từ, v.v.

Ví dụ: khách hàng sẽ yêu cầu /document?id=55 và máy chủ sẽ phản hồi với loại nội dung thích hợp và liên kết ByteString.

Tôi đã làm theo ví dụ here: và tôi đã tạo thứ gì đó cho hình ảnh.

data IMAGE 

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

instance MimeRender IMAGE LBS.ByteString where 
    mimeRender _ = id 

Thách thức là khách hàng sẽ không được gửi yêu cầu với một số Accept: tiêu đề cụ thể như vậy không có cách nào cho tôi phản ứng với một Mime Type thích hợp như nó được thực hiện here. Plus ở trên sẽ chỉ làm việc cho hình ảnh (giả sử trình duyệt sẽ suy ra một png thậm chí tôi gửi lại jpeg) nhưng không cho pdf, docx, v.v.

Tôi đã nghĩ về loại tham số như MyDynamicContent String và tôi sẽ chuyển loại nội dung vào thời gian chạy nhưng tôi không chắc chắn cách khai báo API của mình, tôi sẽ sử dụng cái gì thay vì '[JSON]. Bạn không chắc chắn điều đó thậm chí có thể là các ví dụ chỉ là một kiểu dữ liệu đơn giản.

Vì vậy, câu hỏi của tôi là, nếu tôi muốn gửi một số ByteString như một phản ứng và thiết lập Content-Type tiêu đề tự động, điều gì sẽ là cách tốt nhất để làm điều đó bằng servant

Cập nhật: Tôi đã mở một issue

Answer 1

có thể, nhưng một chút của một hack:

{-# 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 

kiểm tra nó:

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

Ý tưởng chỉ là ghi đè hành vi bình thường bằng cách tuyên bố một phiên bản chồng chéo cho AllCTRender. Lưu ý rằng có thể bạn cũng sẽ phải thực hiện thêm một số công việc chân cho servant-client, servant-docs v.v. nếu bạn cũng đang sử dụng chúng. Cho rằng, bạn có thể muốn mở một vấn đề trong repo về việc này để được hỗ trợ đầy đủ hơn.