getMoves :: String -> [Move] -> [Move]
getMoves t moves = filter (\(Move mX mY mT) -> mT == t) moves
getMoves :: String -> [Move] -> [Move]
getMoves t moves = filter (\(Move mX mY mT) -> mT == t) moves
getMoves t moves = filter (\(Move mX mY mT) -> mT == t) moves