From 9e7846d21425115a442a8d60c441fa15a70cb249 Mon Sep 17 00:00:00 2001
From: Marc Weber <marco-oweber@gmx.de>
Date: Tue, 2 Dec 2008 12:28:21 +0000
Subject: [PATCH] added Haskell's foldl

svn path=/nixpkgs/trunk/; revision=13553
---
 pkgs/lib/default.nix | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/pkgs/lib/default.nix b/pkgs/lib/default.nix
index 445dcd8ffd0..e523e25416b 100644
--- a/pkgs/lib/default.nix
+++ b/pkgs/lib/default.nix
@@ -96,6 +96,12 @@ rec {
     then nul
     else op (head list) (fold op nul (tail list));
 
+  # Haskell's fold
+  foldl = op: nul: list:
+    if list == []
+    then nul
+    else fold op (op nul (head list)) (tail list);
+
     
   # Concatenate a list of lists.
   concatList = x : y : x ++ y;