[Haskell-cafe] Simplification of this function?