Use </> to attempt to fix windows unit tests

cardano-foundation · Nov 30, 2023 · b3938f4 · b3938f4
1 parent 6a7bfdf
commit b3938f4
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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