Remove user type for more idiomatic auth combinators

2016-01-16 18:31:26 +01:00 · 2016-01-16 18:31:26 +01:00 · 5cc78b435a
commit 5cc78b435a
parent 9decfee68b
1 changed files with 1 additions and 1 deletions
--- a/servant/src/Servant/API/Auth.hs
+++ b/servant/src/Servant/API/Auth.hs
@ -17,7 +17,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) (usr :: *)
+data BasicAuth (realm :: Symbol)
  deriving (Typeable)

 -- | A generalized Authentication combinator.