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

Remove hardcoded param in serveWithContext

Browse source
This commit is contained in:
Sasa Bogicevic 2018-04-27 11:03:37 +02:00
parent a90b671607
commit 4d46e98419
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
servant-server/src/Servant/Server.hs
View file

@ -126,11 +126,12 @@ import Servant.Server.Internal
serve :: (HasServer api '[Bool]) => Proxy api -> Server api -> Application
serve p = serveWithContext p (False :. EmptyContext)
serveWithContext :: (HasServer api context)
serveWithContext :: (HasServer api context, HasContextEntry context Bool)
=> Proxy api -> Context context -> Server api -> Application
serveWithContext p context server =
toApplication
False -- determins if we should fully evaluate response
(getContextEntry context :: Bool)
-- ^ determins if we should fully evaluate response
(runRouter (route p context (emptyDelayed (Route server))))
-- | Hoist server implementation.