[Haskell] partition in Data.List bug