Blanked JSON not blanking properly
newhoggy opened this issue · comments
JSON not blanking properly:
This is problem was found in issue-0001.json
:
λ> fromByteString inJsonBS :: BlankedJson
BlankedJson ["[ { ( ) : ( ), ( ) : [], ( ) : [], ( ) : { ( ) : 10000000, ( ) : ( ), ( ) : ( ), ( ) : ( ), ( ) : ( ), ( ) : 1000, ( ) : 10, ( ) : 10, ( ) : { ( ) : ( ), ( ) : ( ) } }, ( ) : [], ( ) : [ { ( ) : (), ( ) : ( ), ( ) : ( ), ( ) : ( ), ( ) : ( ), ( ) : ( ), ( ) : ( ), ( ) : 100000000, ( ) : 10000000000 }, { ( ) : (), ( ) : ( ), ( ) : ( ), ( ) : ( ), ( ) : ( ), ( ) : ( ), ( ) : ( ), ( ) : 1000000000, ( ) : 10000000000 } ], ( ) : [ { ( ) : 1000, ( ) : ( ), ( ) : 1000, ( ) : 1, ( ) : 1, ( ) : ( ), ( ) : n___, ( ) : ( ), ( ) : ( ), ( ) : n___, ( ) : n___, ( ) : n___, ( ) : { ( ) : ( ), ( ) : ( ) } }, { ( ) : 1000, ( ) : ( ), ( ) : 1000, ( ) : 1, ( ) : 1, ( ) : ( ), ( ) : n___, ( ) : ( ), ( ) : ( ), ( ) : n___, ( ) : n___, ( ) : n___, ( ) : { ( ) : ( ), ( ) : ( ) } } ], ( ) : [], ( ) : [ { ( ) : [ [ [ 100, 10 ], ( ) ], [ [ 100, 100 ], ( ) ], [ [ 100, 100 ], ( ) ] ], ( ) : n___ } ], ( ) : [ { ( ) : ( ), ( ) : ( ) }, { ( ) : ( ), ( ) : ( ) }, { ( ) : ( ), ( ) : ( ) }, { ( ) : ( ), ( ) : ( ) }, { ( ) : ( ), ( ) : ( ) }, { ( ) : ( ), ( ) : ( ) }, { ( ) : ( ), ( ) : ( ) }, { ( ) : ( ), ( ) : ( ) }, { ( ) : ( ), ( ) : ( ) } ]},"," {}]\n"]
Actually, this is correct. The blanked json has been chunked.