haskell-works / hw-json

Geek Repo:Geek Repo

Github PK Tool:Github PK Tool

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.