# 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