diff --git a/DataStructures/Trees/RedBlack.fs b/DataStructures/Trees/RedBlack.fs
index 1b41264..2c7bfd2 100644
--- a/DataStructures/Trees/RedBlack.fs
+++ b/DataStructures/Trees/RedBlack.fs
@@ -5,7 +5,7 @@ module RedBlack =
     type Color = Red | Black
 
     type RedBlackTree<'T> =
-        | Node of Color * Left: 'T RedBlackTree * Value: 'T * Right: 'T RedBlackTree
+        | Node of Color * Left: 'T RedBlackTree * Value: 'T * Right:'T RedBlackTree
         | Leaf
 
     let balance = function
@@ -24,5 +24,5 @@ module RedBlack =
                 elif y < x then balance (color, a, y, loop b)
                 else s
 
-        loop s
+        let (Node (_, a, b, c)) = loop s in Node (Black, a, b, c)
         
\ No newline at end of file