module Network.Wai.Middleware.ContentType.ByteString where
import Network.Wai.Middleware.ContentType.Types
import Network.HTTP.Types (status200, Status, ResponseHeaders)
import Network.Wai (Response, responseLBS)
import qualified Data.ByteString.Lazy as LBS
import qualified Data.HashMap.Lazy as HM
bytestring :: Monad m =>
FileExt
-> LBS.ByteString
-> FileExtListenerT m ()
bytestring fe i =
tell' $ HM.singleton fe $
ResponseVia
i
status200
[]
bytestringOnly
bytestringOnly :: LBS.ByteString -> Status -> ResponseHeaders -> Response
bytestringOnly b s hs = responseLBS s hs b