Add type hint for complement

This commit is contained in:
evancz 2012-10-23 01:17:34 -07:00
parent bff94a0d0d
commit 9b27e7d711

View file

@ -82,6 +82,7 @@ graphicsElement = prefix "Graphics"
graphicsColor = prefix "Color" clrs
where clrs = [ numScheme (\n -> n ==> n ==> n ==> color) "rgb"
, numScheme (\n -> n ==> n ==> n ==> n ==> color) "rgba"
, "complement" -: color ==> color
] ++ hasType color ["red","green","blue","black","white"
,"yellow","cyan","magenta","grey","gray"]