haskell color fixes