@@ -97,7 +97,7 @@ complement color =
97 RGBA r g b a -> let (h,s,l) = rgbToHsl r g b
97 RGBA r g b a -> let (h,s,l) = rgbToHsl r g b
98 in hsla (h + degrees 180) s l a
98 in hsla (h + degrees 180) s l a
100−{-| Extract the the components of a color in the HSL format.
100+{-| Extract the components of a color in the HSL format.
102toHsl : Color -> { hue:Float, saturation:Float, lightness:Float, alpha:Float }
102toHsl : Color -> { hue:Float, saturation:Float, lightness:Float, alpha:Float }
103toHsl color =
103toHsl color =
@@ -107,7 +107,7 @@ toHsl color =
107 let (h,s,l) = rgbToHsl r g b
107 let (h,s,l) = rgbToHsl r g b
108 in { hue=h, saturation=s, lightness=l, alpha=a }
108 in { hue=h, saturation=s, lightness=l, alpha=a }
110−{-| Extract the the components of a color in the RGB format.
110+{-| Extract the components of a color in the RGB format.
112toRgb : Color -> { red:Int, green:Int, blue:Int, alpha:Float }
112toRgb : Color -> { red:Int, green:Int, blue:Int, alpha:Float }
113toRgb color =
113toRgb color =