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