帮我写一个Haskell快排得算法

下面是一个基于Haskell的快速排序算法：

-- 快速排序算法
quickSort :: Ord a => [a] -> [a]
quickSort [] = [] -- 空列表的情况
quickSort (x:xs) =
  let smallerSorted = quickSort [a | a <- xs, a <= x] -- 比x小的元素
      largerSorted = quickSort [a | a <- xs, a > x] -- 比x大的元素
  in smallerSorted ++ [x] ++ largerSorted -- 将三个列表合并

快速排序算法的基本思想是：选择一个基准元素，将列表分为两个子列表，一个包含比基准元素小的元素，另一个包含比基准元素大的元素，继续对这两个子列表进行递归排序，最后将它们合并起来。

在上面的算法中，我们首先处理空列表的情况，然后选择列表中的第一个元素作为基准元素。接下来，我们使用一个列表推导式将原列表分为两个子列表，一个包含比基准元素小的元素，另一个包含比基准元素大的元素。然后，我们对这两个子列表进行递归排序，并将它们合并起来。

总之，这是一个简单而有效的快速排序算法，可以用于对列表进行排序。