fix delete all

Author: Time Hoo

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