diff options
-rw-r--r-- | README.md | 5 | ||||
-rw-r--r-- | src/Main.hs | 2 |
2 files changed, 7 insertions, 0 deletions
@@ -73,5 +73,10 @@ dn: cn=reader,dc=nodomain changetype: modify replace: description description: foo + +# This will be deleted if exists: +dn: cn=reader,dc=nodomain +changetype: delete + ``` diff --git a/src/Main.hs b/src/Main.hs index c989956..d497fe3 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -81,6 +81,8 @@ apply ldap rec = do update :: LDAP -> Maybe LDAPEntry -> LDIFRecord -> IO () +update _ Nothing (ChangeRecord _ ChangeDelete) = return () + update _ Nothing rec@(ChangeRecord _ _) = die $ "cannot update non-existing entry " ++ show (dn rec) |