diff options
| author | Igor Pashev <pashev.igor@gmail.com> | 2017-01-07 21:49:13 +0300 |
|---|---|---|
| committer | Igor Pashev <pashev.igor@gmail.com> | 2017-01-07 21:49:13 +0300 |
| commit | cdddf52e87b0b7a84b9b664df29004340f99ec20 (patch) | |
| tree | f9669cff4831b9fdae6e9bf9f2a6391faf5bbc1c /src | |
| parent | c981e1e82e94084bccbad194780434a5864e8f6d (diff) | |
| download | ldapply-cdddf52e87b0b7a84b9b664df29004340f99ec20.tar.gz | |
Allow "delete" non-existent entries
Diffstat (limited to 'src')
| -rw-r--r-- | src/Main.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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) |