multiple declarations constructor

IDL:

enum ColorA {Red=0,Green=1}
enum ColorB {Red=0,Green=1}

HS:

data ColorA = Red | Green

data ColorB = Red | Green

ERROR:

Multiple declarations of ‘Red’

Multiple declarations of ‘Green’