[Nix-dev] patch list.nix fix sort

[Eelco Dolstra]

Hi,

On 02/17/2011 09:08 PM, Marc Weber wrote:

> @@ -157,7 +157,7 @@ rec {
>           else let
>             part = partition (strictLess (head l)) (tail l);
>           in
> -          qs part.wrong ([(head l)] ++ qs part.right []);
> +          (qs part.wrong ([(head l)] ++ qs part.right [])) ++ concat;

What's the point of the "concat" argument?  Why not just

   qs part.wrong ++ [(head l)] ++ qs part.right

Or to get rid of a concatenation:

   let part = partition (strictLess (head l)) l;
   in qs part.wrong ++ qs part.right

-- 
Eelco Dolstra | http://www.st.ewi.tudelft.nl/~dolstra/