Minor adjustments

This commit is contained in:
Matvey Aksenov 2015-04-11 16:22:19 +00:00
parent 79283cd3df
commit 687524926f
10 changed files with 34 additions and 10 deletions

View File

@ -1,6 +1,3 @@
:warning:
**This is work in progress. Use [LDAP][LDAP] if you need LDAP integration.**
ldap-client ldap-client
=========== ===========
[![Build Status](https://travis-ci.org/supki/ldap-client.svg?branch=master)](https://travis-ci.org/supki/ldap-client) [![Build Status](https://travis-ci.org/supki/ldap-client.svg?branch=master)](https://travis-ci.org/supki/ldap-client)

View File

@ -12,12 +12,17 @@ copyright: 2015 Matvey Aksenov
category: Network category: Network
build-type: Simple build-type: Simple
cabal-version: >= 1.10 cabal-version: >= 1.10
tested-with:
GHC == 7.6.3
, GHC == 7.8.4
, GHC == 7.10.1
extra-source-files: extra-source-files:
README.markdown README.markdown
source-repository head source-repository head
type: git type: git
location: git@github.com:supki/ldap-client location: git@github.com:supki/ldap-client
tag: 0.1.0
library library
default-language: default-language:

View File

@ -2,15 +2,19 @@
{-# LANGUAGE BangPatterns #-} {-# LANGUAGE BangPatterns #-}
{-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE NamedFieldPuns #-} {-# LANGUAGE NamedFieldPuns #-}
-- | Pure Haskell LDAP client library. -- | This module is intended to be imported qualified
--
-- @
-- import qualified Ldap.Client as Ldap
-- @
module Ldap.Client module Ldap.Client
( Host(..) ( with
, Host(..)
, PortNumber
, Ldap , Ldap
, LdapError(..) , LdapError(..)
, ResponseError(..) , ResponseError(..)
, Type.ResultCode(..) , Type.ResultCode(..)
, Async
, with
-- * Bind -- * Bind
, Password(..) , Password(..)
, bind , bind
@ -43,8 +47,6 @@ module Ldap.Client
-- * Extended -- * Extended
, Oid(..) , Oid(..)
, extended , extended
-- * Waiting for completion
, wait
-- * Miscellanous -- * Miscellanous
, Dn(..) , Dn(..)
, Attr(..) , Attr(..)
@ -52,7 +54,6 @@ module Ldap.Client
, AttrList , AttrList
-- * Re-exports -- * Re-exports
, NonEmpty , NonEmpty
, PortNumber
) where ) where
#if __GLASGOW_HASKELL__ < 710 #if __GLASGOW_HASKELL__ < 710

View File

@ -16,6 +16,9 @@ module Ldap.Client.Add
, addEither , addEither
, addAsync , addAsync
, addAsyncSTM , addAsyncSTM
, Async
, wait
, waitSTM
) where ) where
import Control.Monad.STM (STM, atomically) import Control.Monad.STM (STM, atomically)

View File

@ -17,6 +17,9 @@ module Ldap.Client.Bind
, bindEither , bindEither
, bindAsync , bindAsync
, bindAsyncSTM , bindAsyncSTM
, Async
, wait
, waitSTM
) where ) where
import Control.Monad.STM (STM, atomically) import Control.Monad.STM (STM, atomically)

View File

@ -17,6 +17,9 @@ module Ldap.Client.Compare
, compareEither , compareEither
, compareAsync , compareAsync
, compareAsyncSTM , compareAsyncSTM
, Async
, wait
, waitSTM
) where ) where
import Control.Monad.STM (STM, atomically) import Control.Monad.STM (STM, atomically)

View File

@ -16,6 +16,9 @@ module Ldap.Client.Delete
, deleteEither , deleteEither
, deleteAsync , deleteAsync
, deleteAsyncSTM , deleteAsyncSTM
, Async
, wait
, waitSTM
) where ) where
import Control.Concurrent.STM (STM, atomically) import Control.Concurrent.STM (STM, atomically)

View File

@ -23,6 +23,9 @@ module Ldap.Client.Extended
, startTlsEither , startTlsEither
, startTlsAsync , startTlsAsync
, startTlsAsyncSTM , startTlsAsyncSTM
, Async
, wait
, waitSTM
) where ) where
import Control.Monad ((<=<)) import Control.Monad ((<=<))

View File

@ -25,6 +25,9 @@ module Ldap.Client.Modify
, modifyDnEither , modifyDnEither
, modifyDnAsync , modifyDnAsync
, modifyDnAsyncSTM , modifyDnAsyncSTM
, Async
, wait
, waitSTM
) where ) where
import Control.Monad.STM (STM, atomically) import Control.Monad.STM (STM, atomically)

View File

@ -29,6 +29,9 @@ module Ldap.Client.Search
, derefAliases , derefAliases
, Filter(..) , Filter(..)
, SearchEntry(..) , SearchEntry(..)
, Async
, wait
, waitSTM
) where ) where
import Control.Monad.STM (STM, atomically) import Control.Monad.STM (STM, atomically)