diff --git a/src/Parser/JSON.md b/src/Parser/JSON.md
index 50c24a2..7441ed6 100644
--- a/src/Parser/JSON.md
+++ b/src/Parser/JSON.md
@@ -61,7 +61,7 @@ Show (JSONValue t) where
     in assert_total $ "{\{joinBy "," xs}}"
   show (VArray xs) = 
     let xs = dMap (\_,e => show e) xs
-    in assert_total $ "[\{joinBy "," . map show $ xs}]"
+    in assert_total $ "[\{joinBy "," xs}]"
   show (VString s) = "\"\{s}\""
   show (VNumber d) = show d
   show (VBool False) = "false"