我正在使用CSV导出器并获取这些行。如您所见，底行有一个额外的逗号。
361 ,,“$ 20,008,000”,,,“$ 101,050.36”,,爱荷华州，“$ 55,424”,, $ 279.92 ,, 51,48，，50
336 ,,“$ 20,111,000”,,,“$ 79,444.16”,,马萨诸塞州，“$ 59,854”,, $ 236.44，，51,48，，50
340 ,,“$ 21,988,000”,,,“$ 71,521.48”,,明尼苏达州，“64,671美元”，210.36美元，50,48,49
346 ,,“$ 22,566,000”,,,“$ 84,231.26”,,内华达州，“$ 65,220”,, $ 243.44，，51,47，，49
347 ,,“$ 30,167,000”,,,“$ 91,036.54”,,北卡罗来纳州，“$ 86,937”，$ 262.35，，50,49，，50
1 ,,“$ 500,000”,,,“$ 2,500.00”,,宾夕法尼亚州，“$ 500,000”,,“$ 2,500.00”,, 49,0 ,, 49
5 ,,“$ 980,000”,,,“$ 4,345.32”，田纳西州，“$ 196,000”，$ 869.06，，47,65，，58
352 ,,“$ 25,236,000”,,,“$ 86,870.26”,, Texas ,,“$ 71,693”,, $ 246.79 ,, 49,48,49
354 ,,“$ 27,026,000”,,,“$ 97,053.16”,,弗吉尼亚州，“$ 76,345”，$ 274.16 ,, 49,47，，48
15250 ,,,“$ 1,121,193,000”,,,“$ 4,521,167.29”,,“$ 73,521”,, $ 296.47 ,,, 50,49,50，
底行的jrxml如下所示。有人可以告诉我这里需要调整什么？谢谢你
fun :: Int -> Either Int String
fun x | x > 0 = Left x
| otherwise = Right "-"