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

add an example for Raw using serveDirectory

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

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

@ -26,6 +26,13 @@ import Servant.Server
data Raw data Raw
-- | Just pass the request to the underlying application and serve its response. -- | Just pass the request to the underlying application and serve its response.
--
-- Example:
--
-- > type MyApi = "images" :> Raw
-- >
-- > server :: Server MyApi
-- > server = serveDirectory "/var/www/images"
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 =