Fixes a bit of broken formatting in listext.ml.

Signed-off-by: Jonathan Knowles <jonathan.knowles@eu.citrix.com>

diff --git a/stdext/listext.ml b/stdext/listext.ml
index e5f42c1135cf8c69d9e33ce066774ff691c72f4b..ffb31a2f638adef85bee022409a47e141b0d431e 100644 (file)
--- a/stdext/listext.ml
+++ b/stdext/listext.ml
@@ -176,16 +176,16 @@ let cons a b = a :: b
    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