Trouble instancing Eq in my Relation data type

Question

I\'m stuck instancing the following:

data Rel a = R [(a,a)] deriving (Read, Show)

listaPares:: Rel a -> [(a,a)]
listaPares (R rel) = rel

instance Eq (Rel a)