Minor haskell tweak