fix haskell barchart