Add comment to String parameter in baseDrepMetadataHashUrl

IntersectMBO · Oct 8, 2024 · 28d3c1b · 28d3c1b
1 parent 9a0fbea
commit 28d3c1b
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/cardano-cli/test/cardano-cli-test/Test/Cli/DRepMetadata.hs b/cardano-cli/test/cardano-cli-test/Test/Cli/DRepMetadata.hs
@@ -35,6 +35,9 @@ hprop_drep_metadata_hash_url_correct_hash =
 baseDrepMetadataHashUrl
   :: (MonadBaseControl IO m, MonadTest m, MonadIO m, MonadCatch m)
   => String
+  -- ^ The hash to check against. Changing this value allows us to test the
+  -- behavior of the command both when the hash is correct and when it is incorrect
+  -- reusing the same code.
   -> m ()
 baseDrepMetadataHashUrl hash = do
   let relativeUrl = ["ipfs", exampleAnchorDataIpfsHash]