Allow "delete" non-existent entries

2 files changed, 7 insertions, 0 deletions

diff --git a/README.md b/README.md
index a31f94d..985b5f4 100644
--- a/README.md
+++ b/README.md
@@ -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)