From a1628946c16eaa459ef21952dc3ebc388b81da73 Mon Sep 17 00:00:00 2001 From: aaron levin Date: Sun, 9 Aug 2015 11:39:26 -0400 Subject: [PATCH] Use new strictProtect (arguments were flipped) --- servant-examples/auth-combinator/auth-combinator.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/servant-examples/auth-combinator/auth-combinator.hs b/servant-examples/auth-combinator/auth-combinator.hs index dc229295..4ea269d0 100644 --- a/servant-examples/auth-combinator/auth-combinator.hs +++ b/servant-examples/auth-combinator/auth-combinator.hs @@ -86,7 +86,7 @@ api :: Proxy API api = Proxy server :: Server API -server = strictProtect isGoodCookie (const (return prvdata)) cookieAuthHandlers +server = strictProtect isGoodCookie cookieAuthHandlers (const (return prvdata)) :<|> return pubdata where prvdata = [PrivateData "this is a secret"]