How to split a list by type in Haskell?

Question

I am trying to create a split a list by selected type. Here is the type I have created.

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

type Set =