Learning how to write typeClasses in haskell
Wrote the following at first
data Trivial = ATrivial instance Eq Trivial where (==) trVal1 trVal2 = trV