From b3938f4584af02beab05561dba32bf43e76d4846 Mon Sep 17 00:00:00 2001 From: Johannes Lund Date: Thu, 30 Nov 2023 17:07:28 +0100 Subject: [PATCH] Use `` to attempt to fix windows unit tests --- lib/local-cluster/lib/Cardano/Wallet/Launch/Cluster.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lib/local-cluster/lib/Cardano/Wallet/Launch/Cluster.hs b/lib/local-cluster/lib/Cardano/Wallet/Launch/Cluster.hs index 874e5f99866..f96e34dfcdc 100644 --- a/lib/local-cluster/lib/Cardano/Wallet/Launch/Cluster.hs +++ b/lib/local-cluster/lib/Cardano/Wallet/Launch/Cluster.hs @@ -1031,10 +1031,11 @@ clusterEraFromEnv = _ -> die $ var ++ ": unknown era" withDefault = fromMaybe maxBound -localClusterConfigsFromEnv :: IO (Tagged "cluster-configs" String) +localClusterConfigsFromEnv :: IO (Tagged "cluster-configs" FilePath) localClusterConfigsFromEnv = lookupEnvNonEmpty "LOCAL_CLUSTER_CONFIGS" <&> Tagged @"cluster-configs" - . fromMaybe "../local-cluster/test/data/cluster-configs" + . fromMaybe + ("../local-cluster" "test" "data" "cluster-configs") clusterEraToString :: ClusterEra -> String clusterEraToString = \case