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

---
 src/Main.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src')

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