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

Fix spelling issues in auth-combinator

Browse source
This commit is contained in:
aaron levin 2015-08-11 10:28:17 -04:00 committed by Arian van Putten
parent ece355bf58
commit 77d366c189
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -34,13 +34,13 @@ import Servant.Server.Internal.Authentication (strictProtect, AuthHandlers(AuthH
-- | Data we will use to test for authentication -- | Data we will use to test for authentication
data CookieAuth = CookieAuth { cookie :: ByteString } data CookieAuth = CookieAuth { cookie :: ByteString }
-- | a 'User' datatype we get once the authentication data is tested. -- | A 'User' datatype we get once the authentication data is tested.
type User = ByteString type User = ByteString
-- | we will look up authentication data in the database and extract a User. -- | We will look up authentication data in the database and extract a User.
type DBLookup = CookieAuth -> IO (Maybe User) type DBLookup = CookieAuth -> IO (Maybe User)
-- | method that tests for authentication and extracts a User type. -- | Method that tests for authentication and extracts a User type.
isGoodCookie :: DBLookup isGoodCookie :: DBLookup
isGoodCookie (CookieAuth cookie) = if cookie == "good cookie" then return (Just "one user") else return Nothing isGoodCookie (CookieAuth cookie) = if cookie == "good cookie" then return (Just "one user") else return Nothing
@ -56,11 +56,11 @@ cookieAuthHandlers = AuthHandlers missingAuth notAuthenticated
responseBuilder status401 [] ("Invalid cookie: " <> byteStringCopy cookie) responseBuilder status401 [] ("Invalid cookie: " <> byteStringCopy cookie)
-- | 'AuthData' is a typeclass that provides a method to extract authentication -- | 'AuthData' is a typeclass that provides a method to extract authentication
-- data from a 'Reqest' -- data from a 'Request'
instance AuthData CookieAuth where instance AuthData CookieAuth where
authData req = fmap CookieAuth (lookup "Cookie" (requestHeaders req)) authData req = fmap CookieAuth (lookup "Cookie" (requestHeaders req))
-- | some data we will return from our API that is protected -- | Some data we will return from our API that is protected
newtype PrivateData = PrivateData { ssshhh :: Text } newtype PrivateData = PrivateData { ssshhh :: Text }
deriving (Eq, Show, Generic) deriving (Eq, Show, Generic)