Snake collides with apple

import Helper
import System.Random

-- The following data and functions are imported from Helper 

-- type Coordinate  = (Int,Int) 
-- type Snake       = [Coordinate]  
-- type Apple       = (Coordinate,StdGen)      

-- The width and the height of the board 
-- width :: Int
-- height  :: Int 
 
-- Collides 
-- collides :: Snake -> Coordinate -> Bool

-- Next apple 
-- nextApple :: Apple -> Apple

-- End imports 


collidesApple :: Snake -> Apple -> Apple                                     
collidesApple = undefined 

You can submit as many times as you like. Only your latest submission will be taken into account.