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"]