Add userdata to BasicAuth API type

2016-02-17 19:23:05 +01:00 · 2016-02-17 19:23:05 +01:00 · 9966e5b304
commit 9966e5b304
parent 84172c6135
1 changed files with 1 additions and 1 deletions
--- 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