haskell coding style fix