From 9966e5b3044078f18aece298cb80cc93f4cde4c1 Mon Sep 17 00:00:00 2001 From: aaron levin Date: Wed, 17 Feb 2016 19:23:05 +0100 Subject: [PATCH] Add userdata to BasicAuth API type --- servant/src/Servant/API/BasicAuth.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/servant/src/Servant/API/BasicAuth.hs b/servant/src/Servant/API/BasicAuth.hs index 0a78bded..cc38ddb3 100644 --- a/servant/src/Servant/API/BasicAuth.hs +++ b/servant/src/Servant/API/BasicAuth.hs @@ -20,7 +20,7 @@ import GHC.TypeLits (Symbol) -- In Basic Auth, username and password are base64-encoded and transmitted via -- the @Authorization@ header. Handshakes are not required, making it -- relatively efficient. -data BasicAuth (realm :: Symbol) +data BasicAuth (realm :: Symbol) (userData :: *) deriving (Typeable) -- | A simple datatype to hold data required to decorate a request