yesod-auth-ldap 0.0.1.1 → 0.0.2

raw patch · 2 files changed

+8/−5 lines, 2 filesdep ~authenticate-ldapPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: authenticate-ldap

API changes (from Hackage documentation)

+ Yesod.Auth.LDAP: nameToDN :: LDAPConfig -> Text -> String

- Yesod.Auth.LDAP: LDAPConfig :: (Text -> Text) -> (Text -> [LDAPEntry] -> Text) -> String -> LDAPInt -> String -> String -> Maybe String -> LDAPScope -> LDAPConfig

+ Yesod.Auth.LDAP: LDAPConfig :: (Text -> Text) -> (Text -> String) -> (Text -> [LDAPEntry] -> Text) -> String -> LDAPInt -> String -> String -> Maybe String -> LDAPScope -> LDAPConfig

Files

Yesod/Auth/LDAP.hs +6/−3
yesod-auth-ldap.cabal +2/−2

Yesod/Auth/LDAP.hs view

@@ -31,8 +31,10 @@ import Control.Applicative ((<$>), (<*>))  data LDAPConfig = LDAPConfig {-   -- | When a user gives username x, f(x) will be passed to Kerberos-   usernameModifier :: Text -> Text+   -- | When a user gives username x, f(x) will be passed to LDAP+   usernameModifier :: Text -> Text +   -- | During the second bind, the username must be converted to a valid DN+ ,  nameToDN :: Text -> String     -- | When a user gives username x, f(x) will be passed to Yesod  , identifierModifier :: Text -> [LDAPEntry] -> Text  , ldapHost :: String@@ -98,7 +100,8 @@             mr <- getMessageRender             errorMessage $ mr PleaseProvidePassword         (Just u , Just p ) -> do-          result <- liftIO $ loginLDAP (usernameModifier config u) +          result <- liftIO $ loginLDAP (usernameModifier config u)+                                       (nameToDN config u)                                        (unpack p)                                        (ldapHost config)                                        (ldapPort' config)

yesod-auth-ldap.cabal view

@@ -1,5 +1,5 @@ name:            yesod-auth-ldap-version:         0.0.1.1 +version:         0.0.2 license:         BSD3 license-file:    LICENSE author:          Michael Litchard @@ -29,7 +29,7 @@                    , hamlet                  >= 0.10      && < 0.11                    , yesod-form              >= 0.4       && < 0.5                    , transformers            >= 0.2.2     && < 0.3-                   , authenticate-ldap       == 0.0.1+                   , authenticate-ldap       == 0.0.2      exposed-modules: Yesod.Auth.LDAP     ghc-options:     -Wall