Use a directory name that is the hash of the clusterPeers for etcd state

Author: locallycompact

hydra-node/hydra-node.cabal

@@ -94,6 +94,7 @@ library
 
   other-modules:   Paths_hydra_node
   build-depends:
+    , SHA
     , aeson
     , base
     , blockfrost-client               >=0.9.2.0

hydra-node/src/Hydra/Network/Etcd.hs

@@ -59,6 +59,8 @@ import Data.Aeson (decodeFileStrict', encodeFile)
 import Data.Aeson qualified as Aeson
 import Data.Aeson.Types (Value)
 import Data.ByteString qualified as BS
+import Data.ByteString.Lazy.Char8 qualified as LBS8
+import Data.Digest.Pure.SHA(sha256, showDigest)
 import Data.List ((\\))
 import Data.List qualified as List
 import Data.Map qualified as Map
@@ -199,7 +201,7 @@ withEtcdNetwork tracer protocolVersion config callback action = do
       $ concat
         [ -- NOTE: Must be used in clusterPeers
           ["--name", show advertise]
-        , ["--data-dir", persistenceDir </> "etcd"]
+        , ["--data-dir", persistenceDir </> "etcd" </> showDigest (sha256 $ LBS8.pack $ clusterPeers)]
         , ["--listen-peer-urls", httpUrl listen]
         , ["--initial-advertise-peer-urls", httpUrl advertise]
         , ["--listen-client-urls", httpUrl clientHost]