LdapScimBridge

Documentation

data LdapConf

Constructors

LdapConf

Fields

• ldapHost :: Host

  eg. Ldap.Tls (host conf) Ldap.defaultTlsSettings

• ldapPort :: PortNumber

  usually 389 for plaintext or 636 for TLS.

• ldapDn :: Dn

  `$ slapcat | grep ^modifiersName`, eg. Dn "cn=admin,dc=nodomain".

• ldapPassword :: Password
• ldapSearch :: LdapSearch
• ldapCodec :: Codec

  anything from Data.Text.Encoding.

• ldapDeleteOnAttribute :: Maybe LdapFilterAttr
• ldapDeleteFromDirectory :: Maybe LdapSearch

Instances

Show LdapConf

Defined in LdapScimBridge

Methods

showsPrec :: Int -> LdapConf -> ShowS

show :: LdapConf -> String

showList :: [LdapConf] -> ShowS

FromJSON LdapConf

Defined in LdapScimBridge

Methods

parseJSON :: Value -> Parser LdapConf

parseJSONList :: Value -> Parser [LdapConf]

data LdapFilterAttr

Constructors

LdapFilterAttr

Fields

• key :: Text
• value :: Text

Instances

Eq LdapFilterAttr

Defined in LdapScimBridge

Methods

(==) :: LdapFilterAttr -> LdapFilterAttr -> Bool

(/=) :: LdapFilterAttr -> LdapFilterAttr -> Bool

Show LdapFilterAttr

Defined in LdapScimBridge

Methods

showsPrec :: Int -> LdapFilterAttr -> ShowS

show :: LdapFilterAttr -> String

showList :: [LdapFilterAttr] -> ShowS

Generic LdapFilterAttr

Defined in LdapScimBridge

Associated Types

type Rep LdapFilterAttr :: Type -> Type

Methods

from :: LdapFilterAttr -> Rep LdapFilterAttr x

to :: Rep LdapFilterAttr x -> LdapFilterAttr

FromJSON LdapFilterAttr

Defined in LdapScimBridge

Methods

parseJSON :: Value -> Parser LdapFilterAttr

parseJSONList :: Value -> Parser [LdapFilterAttr]

type Rep LdapFilterAttr

Defined in LdapScimBridge

type Rep LdapFilterAttr = D1 ('MetaData "LdapFilterAttr" "LdapScimBridge" "ldap-scim-bridge-0.1-IIuup4792nj9EOQT6kchJF" 'False) (C1 ('MetaCons "LdapFilterAttr" 'PrefixI 'True) (S1 ('MetaSel ('Just "key") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "value") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

data LdapSearch

Constructors

LdapSearch

Fields

• ldapSearchBase :: Dn

  `$ slapcat | grep ^dn`, eg. Dn "dc=nodomain".

• ldapSearchObjectClass :: Text

  eg. "account"

Instances

Eq LdapSearch

Defined in LdapScimBridge

Methods

(==) :: LdapSearch -> LdapSearch -> Bool

(/=) :: LdapSearch -> LdapSearch -> Bool

Show LdapSearch

Defined in LdapScimBridge

Methods

showsPrec :: Int -> LdapSearch -> ShowS

show :: LdapSearch -> String

showList :: [LdapSearch] -> ShowS

FromJSON LdapSearch

Defined in LdapScimBridge

Methods

parseJSON :: Value -> Parser LdapSearch

parseJSONList :: Value -> Parser [LdapSearch]

data Codec

Constructors

Utf8

Latin1

Instances

Eq Codec

Defined in LdapScimBridge

Methods

(==) :: Codec -> Codec -> Bool

(/=) :: Codec -> Codec -> Bool

Show Codec

Defined in LdapScimBridge

Methods

showsPrec :: Int -> Codec -> ShowS

show :: Codec -> String

showList :: [Codec] -> ShowS

data ScimConf

Constructors

ScimConf

Fields

• scimTls :: Bool
• scimHost :: String
• scimPort :: Int
• scimPath :: String
• scimToken :: Text

Instances

Eq ScimConf

Defined in LdapScimBridge

Methods

(==) :: ScimConf -> ScimConf -> Bool

(/=) :: ScimConf -> ScimConf -> Bool

Show ScimConf

Defined in LdapScimBridge

Methods

showsPrec :: Int -> ScimConf -> ShowS

show :: ScimConf -> String

showList :: [ScimConf] -> ShowS

Generic ScimConf

Defined in LdapScimBridge

Associated Types

type Rep ScimConf :: Type -> Type

Methods

from :: ScimConf -> Rep ScimConf x

to :: Rep ScimConf x -> ScimConf

FromJSON ScimConf

Defined in LdapScimBridge

Methods

parseJSON :: Value -> Parser ScimConf

parseJSONList :: Value -> Parser [ScimConf]

type Rep ScimConf

Defined in LdapScimBridge

type Rep ScimConf = D1 ('MetaData "ScimConf" "LdapScimBridge" "ldap-scim-bridge-0.1-IIuup4792nj9EOQT6kchJF" 'False) (C1 ('MetaCons "ScimConf" 'PrefixI 'True) ((S1 ('MetaSel ('Just "scimTls") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool) :*: S1 ('MetaSel ('Just "scimHost") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String)) :*: (S1 ('MetaSel ('Just "scimPort") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int) :*: (S1 ('MetaSel ('Just "scimPath") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: S1 ('MetaSel ('Just "scimToken") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))))

data BridgeConf

Constructors

BridgeConf

Fields

• ldapSource :: LdapConf
• scimTarget :: ScimConf
• mapping :: Mapping
• logLevel :: Level

Instances

Generic BridgeConf

Defined in LdapScimBridge

Associated Types

type Rep BridgeConf :: Type -> Type

Methods

from :: BridgeConf -> Rep BridgeConf x

to :: Rep BridgeConf x -> BridgeConf

FromJSON BridgeConf

Defined in LdapScimBridge

Methods

parseJSON :: Value -> Parser BridgeConf

parseJSONList :: Value -> Parser [BridgeConf]

type Rep BridgeConf

Defined in LdapScimBridge

type Rep BridgeConf = D1 ('MetaData "BridgeConf" "LdapScimBridge" "ldap-scim-bridge-0.1-IIuup4792nj9EOQT6kchJF" 'False) (C1 ('MetaCons "BridgeConf" 'PrefixI 'True) ((S1 ('MetaSel ('Just "ldapSource") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 LdapConf) :*: S1 ('MetaSel ('Just "scimTarget") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ScimConf)) :*: (S1 ('MetaSel ('Just "mapping") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Mapping) :*: S1 ('MetaSel ('Just "logLevel") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Level))))

data MappingError

Constructors

MissingAttr Text

WrongNumberOfAttrValues Text String Int

CouldNotParseEmail Text String

Instances

Eq MappingError

Defined in LdapScimBridge

Methods

(==) :: MappingError -> MappingError -> Bool

(/=) :: MappingError -> MappingError -> Bool

Show MappingError

Defined in LdapScimBridge

Methods

showsPrec :: Int -> MappingError -> ShowS

show :: MappingError -> String

showList :: [MappingError] -> ShowS

data FieldMapping

Constructors

FieldMapping

Fields

• fieldMappingLabel :: Text
• fieldMappingFun :: [Text] -> Either MappingError (User ScimTag -> User ScimTag)

Instances

Show FieldMapping

Defined in LdapScimBridge

Methods

showsPrec :: Int -> FieldMapping -> ShowS

show :: FieldMapping -> String

showList :: [FieldMapping] -> ShowS

data ScimTag

Instances

UserTypes ScimTag

Defined in LdapScimBridge

Associated Types

type UserId ScimTag

type UserExtra ScimTag

Methods

supportedSchemas :: [Schema]

GroupTypes ScimTag

Defined in LdapScimBridge

Associated Types

type GroupId ScimTag

AuthTypes ScimTag

Defined in LdapScimBridge

Associated Types

type AuthData ScimTag

type AuthInfo ScimTag

type UserExtra ScimTag

Defined in LdapScimBridge

type UserExtra ScimTag = NoUserExtra

type UserId ScimTag

Defined in LdapScimBridge

type UserId ScimTag = Text

type GroupId ScimTag

Defined in LdapScimBridge

type GroupId ScimTag = Text

type AuthInfo ScimTag

Defined in LdapScimBridge

type AuthInfo ScimTag = ()

type AuthData ScimTag

Defined in LdapScimBridge

type AuthData ScimTag = Text

newtype Mapping

Map attribute keys to functions from attribute values to changes to scim records. We'll start off with an empty scim record, and change it based on attributes we find that are listed in the mapping. Mappigns can fail, eg. if there is more than one attribute value for the attribute mapping to externalId.

Constructors

Mapping

Fields

• fromMapping :: Map Text [FieldMapping]

Instances

Show Mapping

Defined in LdapScimBridge

Methods

showsPrec :: Int -> Mapping -> ShowS

show :: Mapping -> String

showList :: [Mapping] -> ShowS

FromJSON Mapping

Defined in LdapScimBridge

Methods

parseJSON :: Value -> Parser Mapping

parseJSONList :: Value -> Parser [Mapping]

type LdapResult a = IO (Either LdapError a)

ldapObjectClassFilter :: Text -> Filter

listLdapUsers :: LdapConf -> LdapSearch -> LdapResult [SearchEntry]

type User = User ScimTag

type StoredUser = StoredUser ScimTag

emptyScimUser :: User

the undefined is ok, the mapping is guaranteed to contain a filler for this, or the mapping parser would have failed.

scimSchemas :: [Schema]

ldapToScim :: forall m. m ~ Either [(SearchEntry, MappingError)] => BridgeConf -> SearchEntry -> m (SearchEntry, User)

connectScim :: ScimConf -> IO ClientEnv

isDeletee :: LdapConf -> SearchEntry -> Bool

updateScimPeer :: Logger -> BridgeConf -> IO ()

lookupScimByExternalId :: ClientEnv -> Maybe Text -> User tag -> IO (Maybe StoredUser)

updateScimPeerPostPut :: Logger -> ClientEnv -> Maybe (AuthData ScimTag) -> [User] -> IO ()

updateScimPeerPostPutStep :: Logger -> ClientEnv -> Maybe Text -> User ScimTag -> Text -> IO ()

updateScimPeerDelete :: Logger -> ClientEnv -> Maybe (AuthData ScimTag) -> [User] -> IO ()

parseCli :: IO BridgeConf

type Logger = Level -> Text -> IO ()

mkLogger :: Level -> IO Logger

main :: IO ()

Orphan instances

FromJSON Level

Methods

parseJSON :: Value -> Parser Level

parseJSONList :: Value -> Parser [Level]