json: Use debuging runner in tests

src/Parser/JSON.md

@@ -259,7 +259,7 @@ quickSmoke : IO Bool
 quickSmoke = do
   let input = "{\"string\":\"string\",\"number\":5,\"true\":true,\"false\":false,\"null\":null,\"array\":[1,2,3]}"
   putStrLn input
-  Right (type ** parsed) <- runFirstIO value input
+  Right (type ** parsed) <- runFirstIODebug value input
     | Left err => do
       printLn err
       pure False