From cdddf52e87b0b7a84b9b664df29004340f99ec20 Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Sat, 7 Jan 2017 21:49:13 +0300
Subject: Allow "delete" non-existent entries

---
 README.md   | 5 +++++
 src/Main.hs | 2 ++
 2 files changed, 7 insertions(+)

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)
 
-- 
cgit v1.2.3