@@ -97,7 +97,7 @@ complement color =
9797 RGBA r g b a -> let (h,s,l) = rgbToHsl r g b
9898 in hsla (h + degrees 180) s l a
9999
100−{-| Extract the the components of a color in the HSL format.
100+{-| Extract the components of a color in the HSL format.
101101-}
102102toHsl : Color -> { hue:Float, saturation:Float, lightness:Float, alpha:Float }
103103toHsl color =
@@ -107,7 +107,7 @@ toHsl color =
107107 let (h,s,l) = rgbToHsl r g b
108108 in { hue=h, saturation=s, lightness=l, alpha=a }
109109
110−{-| Extract the the components of a color in the RGB format.
110+{-| Extract the components of a color in the RGB format.
111111-}
112112toRgb : Color -> { red:Int, green:Int, blue:Int, alpha:Float }
113113toRgb color =