[Xen-API] [PATCH 2 of 2] Fixes a bit of broken formatting in listext.ml

[David Scott <dave.scott@xxxxxxxxxxxxx>]

# HG changeset patch
# User Jonathan Knowles <jonathan.knowles@xxxxxxxxxxxxx>
# Date 1282568215 -3600
# Node ID 08e77bc9468cd5b7e364b86d54140f5b7e33fb61
# Parent  10c905260ad67bb59393cc2ca7708020f4a76f2f
Fixes a bit of broken formatting in listext.ml.

Signed-off-by: Jonathan Knowles <jonathan.knowles@xxxxxxxxxxxxx>

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(-)

Attachment: xen-api-libs.hg-2.patch
Description: Text Data

_______________________________________________
xen-api mailing list
xen-api@xxxxxxxxxxxxxxxxxxx
http://lists.xensource.com/mailman/listinfo/xen-api