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. --