json: delimited arrays

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
 ```