Merge pull request #760 from input-output-hk/plt-6792-contract-id-err…

…or-message Add hint for url-encoding the # in contract IDs
input-output-hk · Nov 22, 2023 · d9daaa5 · d9daaa5
2 parents 45e0a3b + 2058324
commit d9daaa5
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/marlowe-runtime-web/src/Language/Marlowe/Runtime/Web/Types.hs b/marlowe-runtime-web/src/Language/Marlowe/Runtime/Web/Types.hs
@@ -280,7 +280,9 @@ data TxOutRef = TxOutRef
 instance FromHttpApiData TxOutRef where
   parseUrlPiece t = case splitOn "#" t of
     [idText, ixText] -> TxOutRef <$> parseUrlPiece idText <*> parseUrlPiece ixText
-    _ -> Left "Expected [a-fA-F0-9]{64}#[0-9]+"
+    _ -> case parseUrlPiece @TxId t of
+      Right _ -> Left "Expected [a-fA-F0-9]{64}#[0-9]+ (hint: do you need to URL-encode the '#' as \"%23\"?)"
+      _ -> Left "Expected [a-fA-F0-9]{64}#[0-9]+"
 
 instance ToHttpApiData TxOutRef where
   toUrlPiece TxOutRef{..} = toUrlPiece txId <> "#" <> toUrlPiece txIx