diff options
| author | Igor Pashev <pashev.igor@gmail.com> | 2022-12-25 21:10:02 +0200 |
|---|---|---|
| committer | Igor Pashev <pashev.igor@gmail.com> | 2022-12-25 21:10:02 +0200 |
| commit | 82e1226f21e490d74817a3874e194a55287715cd (patch) | |
| tree | bd01e8c3fc71f6ab4747a61d119feb75e3acad3c | |
| parent | bb13c7b82eac0a4f747a9f38573b785687c854ae (diff) | |
| download | ldapply-master.tar.gz | |
| -rw-r--r-- | src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs index 3d76f38..57305fe 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -117,7 +117,7 @@ update _ Nothing (ChangeRecord _ ChangeDelete) = return () update _ Nothing rec@(ChangeRecord _ _) = die $ "cannot update non-existing entry " ++ show (dn rec) update ldap (Just _) rec@(ChangeRecord _ ch) = do - putStrLn $ "modifing " ++ show (dn rec) + putStrLn $ "modifying " ++ show (dn rec) change ldap (dn rec) ch update ldap Nothing rec@(ContentRecord _ av) = do putStrLn $ "adding " ++ show (dn rec) |