18 lines
539 B
Haskell
18 lines
539 B
Haskell
|
{-# LANGUAGE TypeFamilies #-}
|
||
|
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
|
module Servant.API.Raw where
|
||
|
|
|
||
|
|
import Data.Proxy
|
||
|
|
import Network.Wai
|
||
|
|
import Servant.Server
|
||
|
|
|
||
|
|
-- | Endpoint for plugging in your own Wai 'Application's.
|
||
|
|
-- The given Application will get the original request received by the server
|
||
|
|
-- (i.e. with unmodified 'pathInfo', etc.)
|
||
|
|
data Raw
|
||
|
|
|
||
|
|
instance HasServer Raw where
|
||
|
|
type Server Raw = Application
|
||
|
|
route Proxy rawApplication globalPathInfo request respond =
|
||
|
|
rawApplication request{pathInfo = globalPathInfo} (respond . Just)
|