From 5bbedb838d77a2132f6ba6c5d29445ed3a383669 Mon Sep 17 00:00:00 2001 From: aaron levin Date: Tue, 11 Aug 2015 10:28:17 -0400 Subject: [PATCH] Fix spelling issues in auth-combinator --- servant-examples/auth-combinator/auth-combinator.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/servant-examples/auth-combinator/auth-combinator.hs b/servant-examples/auth-combinator/auth-combinator.hs index 4abffbb1..cd315703 100644 --- a/servant-examples/auth-combinator/auth-combinator.hs +++ b/servant-examples/auth-combinator/auth-combinator.hs @@ -34,13 +34,13 @@ import Servant.Server.Internal.Authentication (strictProtect, AuthHandlers(AuthH -- | Data we will use to test for authentication 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 --- | 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) --- | method that tests for authentication and extracts a User type. +-- | Method that tests for authentication and extracts a User type. isGoodCookie :: DBLookup isGoodCookie (CookieAuth cookie) = if cookie == "good cookie" then return (Just "one user") else return Nothing @@ -67,11 +67,11 @@ cookieAuthHandlers = AuthHandlers missingAuth notAuthenticated responseBuilder status401 [] ("Invalid cookie: " <> byteStringCopy cookie) -- | 'AuthData' is a typeclass that provides a method to extract authentication --- data from a 'Reqest' +-- data from a 'Request' instance AuthData CookieAuth where 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 } deriving (Eq, Show, Generic)