diff options
| -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) |