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

remove policy specificity and add lax endpoint

Browse source
This commit is contained in:
aaron levin 2015-09-13 23:41:35 +02:00 committed by aaron levin
parent 8dbc857c8e
commit 7616eff8b7
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
servant-docs/example/greet.hs
View file

@ -75,7 +75,7 @@ instance ToSample Cookie Cookie where
instance ToSample SecretData SecretData where instance ToSample SecretData SecretData where
toSample _ = Just (SecretData "shhhhh!") toSample _ = Just (SecretData "shhhhh!")
instance ToAuthInfo (AuthProtect Cookie User 'Strict) where instance ToAuthInfo (AuthProtect Cookie User policy) where
toAuthInfo _ = AuthenticationInfo "In this sentence we outline how authentication works." toAuthInfo _ = AuthenticationInfo "In this sentence we outline how authentication works."
"The following data is required on each request as a serialized header." "The following data is required on each request as a serialized header."
@ -109,6 +109,8 @@ type TestApi =
-- GET /private -- GET /private
:<|> "private" :> AuthProtect Cookie User 'Strict :> Get '[JSON] SecretData :<|> "private" :> AuthProtect Cookie User 'Strict :> Get '[JSON] SecretData
-- GET /private-lax
:<|> "private-lax" :> AuthProtect Cookie User 'Lax :> Get '[JSON] SecretData
testApi :: Proxy TestApi testApi :: Proxy TestApi
testApi = Proxy testApi = Proxy