json: Use debuging runner in tests

This commit is contained in:
Nathan McCarty 2025-01-26 19:51:46 -05:00
parent 06c4c8a9cf
commit da182e813f

View file

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