Tetris move

type Direction = (Int,Int)   

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


-- Move a block in a certain direction                                                                 
-- This boils down to adding the change in direction to the block coordinate.                          
-- (* Difficulty 1 *)                                                                                  
move :: Direction -> Block -> Block                                                                    
move (x,y) (Block (p,q)) = undefined

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