Hi guys, I'm currently struggling with a little problem and was hoping someone could help: I have the function

fairToss :: (RandomGen g) => Rand g Coin
fairToss = uniform [Tail,Head]

that tosses a coin. I would like to use the result of that coin toss in a new function, something along the lines of "if (fairToss == Head) then ...", however since fairToss comes with some context, this does not work. How can I access the result of fairToss (or maybe lift "==" and "Head" into the context?) to make the comparison work? Thanks!

I defined Coin as 
data Coin = Tail | Head deriving (Show,Eq)