Tetris onRow

data Block     = Block (Int,Int)                                                                                                                                             
                 deriving (Eq,Show)                                                                                                                          

--                                                                                                                                                                           
-- Predicate to make sure that a block is on a certain row                                                                                                                   
-- (* Difficulty 1 *)  
--
onRow :: Int -> Block -> Bool                                                                                                                                                
onRow y (Block (_,y2)) = undefined

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