json: Use debuging runner in tests
This commit is contained in:
parent
06c4c8a9cf
commit
da182e813f
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||||
|
|
Loading…
Add table
Reference in a new issue