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

Use new strictProtect (arguments were flipped)

Browse source
This commit is contained in:
aaron levin 2015-08-09 11:39:26 -04:00 committed by Arian van Putten
parent 4efee63380
commit a1628946c1
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
servant-examples/auth-combinator/auth-combinator.hs
View file

@ -86,7 +86,7 @@ api :: Proxy API
api = Proxy api = Proxy
server :: Server API server :: Server API
server = strictProtect isGoodCookie (const (return prvdata)) cookieAuthHandlers server = strictProtect isGoodCookie cookieAuthHandlers (const (return prvdata))
:<|> return pubdata :<|> return pubdata
where prvdata = [PrivateData "this is a secret"] where prvdata = [PrivateData "this is a secret"]