From 357cc729925b92e5fc2dcd6607704cd0d18096bb Mon Sep 17 00:00:00 2001 From: Time Hoo Date: Tue, 12 Apr 2022 18:21:11 +0800 Subject: [PATCH] fix delete all --- src/ZooKeeper.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ZooKeeper.hs b/src/ZooKeeper.hs index b75a8ab..4b3b08d 100644 --- a/src/ZooKeeper.hs +++ b/src/ZooKeeper.hs @@ -265,7 +265,7 @@ zooDeleteAll :: HasCallStack => T.ZHandle -> CBytes -> IO () zooDeleteAll zh path = do T.StringsCompletion (T.StringVector children) <- zooGetChildren zh path mapM_ (zooDeleteAll zh <=< ZF.join path) children - zooDelete zh path Nothing + catch (zooDelete zh path Nothing) (\(e::ZNONODE) -> pure ()) -- | Checks the existence of a node in zookeeper. --