From da182e813f8c472f5ed8650c987c639fcf32a8a3 Mon Sep 17 00:00:00 2001 From: Nathan McCarty Date: Sun, 26 Jan 2025 19:51:46 -0500 Subject: [PATCH] json: Use debuging runner in tests --- src/Parser/JSON.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Parser/JSON.md b/src/Parser/JSON.md index f09c8dd..3fa005e 100644 --- a/src/Parser/JSON.md +++ b/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