module CellCoordinate (CellCoord,coordRange)
    where

type CellCoord = (Int,Int)

coordRange :: (CellCoord,CellCoord) -> [CellCoord]
coordRange ((fromRow,fromCol),(toRow,toCol)) = 
    do row <- [fromRow..toRow]
       col <- [fromCol..toCol]
       return (row,col)