Fix withSMASH double file path composition bug

cardano-foundation · Apr 23, 2024 · 49d12e5 · 49d12e5
1 parent be203e6
commit 49d12e5
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/lib/local-cluster/lib/Cardano/Wallet/Launch/Cluster/SMASH.hs b/lib/local-cluster/lib/Cardano/Wallet/Launch/Cluster/SMASH.hs
@@ -101,9 +101,11 @@ withSMASH tr parentDir action = do
             $ MsgRegisteringPoolMetadataInSMASH
                 (T.unpack $ toTextPoolId poolId)
                 hash
-
+        traceWith tr $ MsgInfo
+            $ "Writing pool metadata to disk " <> T.pack poolDir
         createDirectoryIfMissing True poolDir
-        BL8.writeFile (poolDir </> hashFile) bytes
+        BL8.writeFile hashFile bytes
+        traceWith tr $ MsgInfo $ "Wrote pool metadata to disk " <> T.pack hashFile
 
     -- Write delisted pools
     let toSmashId = T.pack . B8.unpack . convertToBase Base16 . getPoolId