eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

haddocks for Raw

Browse source
This commit is contained in:
Alp Mestanogullari 2014-11-22 18:04:19 +01:00
parent 92ddcf4380
commit 1f3ec7ceaa
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Servant/API/Raw.hs
View file

@ -18,13 +18,21 @@ import Servant.Server
-- --
-- The given 'Application' will get the request as received by the server, potentially with -- The given 'Application' will get the request as received by the server, potentially with
-- a modified (stripped) 'pathInfo' if the 'Application' is being routed with 'Servant.API.Sub.:>'. -- a modified (stripped) 'pathInfo' if the 'Application' is being routed with 'Servant.API.Sub.:>'.
--
-- In addition to just letting you plug in your existing WAI 'Application's,
-- this can also be used with 'Servant.Utils.StaticFiles.serveDirectory' to serve
-- static files stored in a particular directory on your filesystem, or to serve
-- your API's documentation with 'Servant.Utils.StaticFiles.serveDocumentation'.
data Raw data Raw
-- | Just pass the request to the underlying application and serve its response.
instance HasServer Raw where instance HasServer Raw where
type Server Raw = Application type Server Raw = Application
route Proxy rawApplication request respond = route Proxy rawApplication request respond =
rawApplication request (respond . succeedWith) rawApplication request (respond . succeedWith)
-- | Pick a 'Method' and specify where the server you want to query is. You get
-- back the status code and the response body as a 'ByteString'.
instance HasClient Raw where instance HasClient Raw where
type Client Raw = Method -> BaseUrl -> EitherT String IO (Int, ByteString) type Client Raw = Method -> BaseUrl -> EitherT String IO (Int, ByteString)