diff options
Diffstat (limited to 'src/Main.hs')
| -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) |