[runtime-web] fixing HttpApiData for AssetId to handle TokenNames con…

…taining `.`
input-output-hk · Aug 27, 2023 · 4ce99d6 · 4ce99d6
1 parent 9bf7160
commit 4ce99d6
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/marlowe-runtime-web/src/Language/Marlowe/Runtime/Web/Types.hs b/marlowe-runtime-web/src/Language/Marlowe/Runtime/Web/Types.hs
@@ -246,9 +246,9 @@ instance ToParamSchema AssetId where
       & pattern ?~ "^[a-fA-F0-9]*\\..*$"
 
 instance FromHttpApiData AssetId where
-  parseUrlPiece piece = case splitOn "." piece of
-    [policyId, tokenName] -> AssetId <$> parseUrlPiece policyId <*> parseUrlPiece tokenName
-    _ -> Left "Expected ^[a-fA-F0-9]*\\..*$"
+  parseUrlPiece piece = case T.breakOn "." piece of
+    (_, "") -> Left "Expected ^[a-fA-F0-9]*(\\.).*$"
+    (policyId, tokenNameStartingWitPeriodCharacter) -> AssetId <$> parseUrlPiece policyId <*> parseUrlPiece (T.drop 1 tokenNameStartingWitPeriodCharacter)
 
 instance ToHttpApiData AssetId where
   toUrlPiece AssetId{..} = toUrlPiece policyId <> "." <> toUrlPiece assetName