c65895bb59
In addition to the plaintext and "secure" TLS modes. It's useful when one authenticates against a LDAP server with a self-signed certificate, for example.
84 lines
1.4 KiB
Haskell
84 lines
1.4 KiB
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
module SpecHelper
|
|
( locally
|
|
, port
|
|
, dns
|
|
-- * Users
|
|
, bulbasaur
|
|
, ivysaur
|
|
, venusaur
|
|
, charmander
|
|
, charmeleon
|
|
, charizard
|
|
, squirtle
|
|
, wartortle
|
|
, blastoise
|
|
, caterpie
|
|
, metapod
|
|
, butterfree
|
|
, pikachu
|
|
, vulpix
|
|
, oddish
|
|
) where
|
|
|
|
import Ldap.Client as Ldap
|
|
|
|
|
|
locally :: (Ldap -> IO a) -> IO (Either LdapError a)
|
|
locally = Ldap.with localhost port
|
|
|
|
localhost :: Host
|
|
localhost = Insecure "localhost"
|
|
|
|
port :: Num a => a
|
|
port = 24620
|
|
|
|
dns :: [SearchEntry] -> [Dn]
|
|
dns (SearchEntry dn _ : es) = dn : dns es
|
|
dns [] = []
|
|
|
|
bulbasaur :: Dn
|
|
bulbasaur = Dn "cn=bulbasaur,o=localhost"
|
|
|
|
ivysaur :: Dn
|
|
ivysaur = Dn "cn=ivysaur,o=localhost"
|
|
|
|
venusaur :: Dn
|
|
venusaur = Dn "cn=venusaur,o=localhost"
|
|
|
|
charmander :: Dn
|
|
charmander = Dn "cn=charmander,o=localhost"
|
|
|
|
charmeleon :: Dn
|
|
charmeleon = Dn "cn=charmeleon,o=localhost"
|
|
|
|
charizard :: Dn
|
|
charizard = Dn "cn=charizard,o=localhost"
|
|
|
|
squirtle :: Dn
|
|
squirtle = Dn "cn=squirtle,o=localhost"
|
|
|
|
wartortle :: Dn
|
|
wartortle = Dn "cn=wartortle,o=localhost"
|
|
|
|
blastoise :: Dn
|
|
blastoise = Dn "cn=blastoise,o=localhost"
|
|
|
|
caterpie :: Dn
|
|
caterpie = Dn "cn=caterpie,o=localhost"
|
|
|
|
metapod :: Dn
|
|
metapod = Dn "cn=metapod,o=localhost"
|
|
|
|
butterfree :: Dn
|
|
butterfree = Dn "cn=butterfree,o=localhost"
|
|
|
|
pikachu :: Dn
|
|
pikachu = Dn "cn=pikachu,o=localhost"
|
|
|
|
vulpix :: Dn
|
|
vulpix = Dn "cn=vulpix,o=localhost"
|
|
|
|
oddish :: Dn
|
|
oddish = Dn "cn=oddish,o=localhost"
|