# HG changeset patch # User Jonathan Knowles <[email protected]> # Date 1282568215 -3600 # Node ID 08e77bc9468cd5b7e364b86d54140f5b7e33fb61 # Parent 10c905260ad67bb59393cc2ca7708020f4a76f2f Fixes a bit of broken formatting in listext.ml.
Signed-off-by: Jonathan Knowles <[email protected]> diff -r 10c905260ad6 -r 08e77bc9468c stdext/listext.ml --- a/stdext/listext.ml Mon Aug 23 13:56:54 2010 +0100 +++ b/stdext/listext.ml Mon Aug 23 13:56:55 2010 +0100 @@ -176,16 +176,16 @@ Con: Less robust. *) let take n list = - let rec helper i acc list = + let rec helper i acc list = if i <= 0 || list = [] then acc else helper (i-1) (List.hd list :: acc) (List.tl list) - in List.rev $ helper n [] list + in List.rev $ helper n [] list (* Thanks to sharing we only use linear space. (Roughly double the space needed for the spine of the original list) *) let rec tails = function - | [] -> [[]] - | (_::xs) as l -> l :: tails xs + | [] -> [[]] + | (_::xs) as l -> l :: tails xs let safe_hd = function | a::_ -> Some a stdext/listext.ml | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-)
# HG changeset patch # User Jonathan Knowles <[email protected]> # Date 1282568215 -3600 # Node ID 08e77bc9468cd5b7e364b86d54140f5b7e33fb61 # Parent 10c905260ad67bb59393cc2ca7708020f4a76f2f Fixes a bit of broken formatting in listext.ml. Signed-off-by: Jonathan Knowles <[email protected]> diff -r 10c905260ad6 -r 08e77bc9468c stdext/listext.ml --- a/stdext/listext.ml Mon Aug 23 13:56:54 2010 +0100 +++ b/stdext/listext.ml Mon Aug 23 13:56:55 2010 +0100 @@ -176,16 +176,16 @@ Con: Less robust. *) let take n list = - let rec helper i acc list = + let rec helper i acc list = if i <= 0 || list = [] then acc else helper (i-1) (List.hd list :: acc) (List.tl list) - in List.rev $ helper n [] list + in List.rev $ helper n [] list (* Thanks to sharing we only use linear space. (Roughly double the space needed for the spine of the original list) *) let rec tails = function - | [] -> [[]] - | (_::xs) as l -> l :: tails xs + | [] -> [[]] + | (_::xs) as l -> l :: tails xs let safe_hd = function | a::_ -> Some a
_______________________________________________ xen-api mailing list [email protected] http://lists.xensource.com/mailman/listinfo/xen-api
