From 90c48b36729a237fa89668e7d608231cff50d301 Mon Sep 17 00:00:00 2001 From: Nathan McCarty Date: Sun, 26 Jan 2025 21:09:58 -0500 Subject: [PATCH] json: delimited arrays --- src/Parser/JSON.md | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/src/Parser/JSON.md b/src/Parser/JSON.md index b990e54..311057d 100644 --- a/src/Parser/JSON.md +++ b/src/Parser/JSON.md @@ -203,11 +203,7 @@ array = do pure $ first ::: rest occupiedArray : Parser (JSONValue TArray) occupiedArray = do - _ <- parseExactChar '[' - xs <- values - _ <- parseExactChar ']' - -- TODO: Why is this busted? - -- xs <- delimited '[' ']' values + xs <- delimited '[' ']' values let (types ** xs) = DList.fromList (forget xs) pure $ VArray xs ```