ldap-client 0.4.1 → 0.4.2

raw patch · 3 files changed

+36/−15 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGELOG.md +16/−0
• ldap-client.cabal +2/−2
• src/Ldap/Client.hs +18/−13

@@ -1,5 +1,21 @@ # LDAP Client Changelog +## [0.4.2](https://github.com/alasconnect/ldap-client/tree/0.4.2) (2021-10-07)++[Full Changelog](https://github.com/alasconnect/ldap-client/compare/0.4.1...0.4.2)++**Merged pull requests:**++- add openFromConnection to expose Connection [\#6](https://github.com/alasconnect/ldap-client/pull/6) ([jecaro](https://github.com/jecaro))++## [0.4.1](https://github.com/alasconnect/ldap-client/tree/0.4.1) (2020-06-09)++[Full Changelog](https://github.com/alasconnect/ldap-client/compare/0.4.0...0.4.1)++**Merged pull requests:**++- Version bump and TravisCI GHC [\#5](https://github.com/alasconnect/ldap-client/pull/5) ([boj](https://github.com/boj))+- only implement fail for old ghc version [\#4](https://github.com/alasconnect/ldap-client/pull/4) ([glatteis](https://github.com/glatteis))  ## [0.4.0](https://github.com/alasconnect/ldap-client/tree/0.4.0) (2019-11-07) 

@@ -1,5 +1,5 @@ name:                ldap-client-version:             0.4.1+version:             0.4.2 synopsis:            Pure Haskell LDAP Client Library description:   Pure Haskell LDAP client library implementing (the parts of) RFC 4511.@@ -25,7 +25,7 @@ source-repository head   type:     git   location: git@github.com:alasconnect/ldap-client-  tag:      0.4.0+  tag:      0.4.2  library   ghc-options:

@@ -15,6 +15,7 @@   , runsIn   , runsInEither   , open+  , openFromConnection   , close   , Host(..)   , defaultTlsSettings@@ -198,6 +199,23 @@ open host port = do   context <- Conn.initConnectionContext   conn <- Conn.connectTo context params+  openFromConnection conn+ where+  params = Conn.ConnectionParams+    { Conn.connectionHostname =+        case host of+          Plain h -> h+          Tls   h _ -> h+    , Conn.connectionPort = port+    , Conn.connectionUseSecure =+        case host of+          Plain  _ -> Nothing+          Tls _ settings -> pure settings+    , Conn.connectionUseSocks = Nothing+    }++openFromConnection :: Connection -> IO (LdapH)+openFromConnection conn = do   reqQ <- newTQueueIO   inQ  <- newTQueueIO   outQ <- newTQueueIO@@ -216,19 +234,6 @@   workers <- Async.async (snd <$> Async.waitAnyCancel [inW, outW, dispW])    pure (LdapH (Ldap reqQ workers conn))- where-  params = Conn.ConnectionParams-    { Conn.connectionHostname =-        case host of-          Plain h -> h-          Tls   h _ -> h-    , Conn.connectionPort = port-    , Conn.connectionUseSecure =-        case host of-          Plain  _ -> Nothing-          Tls _ settings -> pure settings-    , Conn.connectionUseSocks = Nothing-    }  -- | Closes an LDAP connection. -- This is to be used in together with 'open'.