Ainda estou aprendendo o básico de Haskell e tentei encontrar uma resposta para essa pergunta simples, então peço desculpas antecipadamente, porque tenho certeza de que é simples.

Dado:

data Fruit = Fruit| Apple | Orange
    deriving (Show, Eq)

a = Apple

Como verifico se a é uma fruta?