makeMove player move moves = let (Move x y t) = move in moves ++ [(Move x y player)]
makeMove player move moves = let (Move x y t) = move in moves ++ [(Move x y player)]
makeMove player move moves = let (Move x y t) = move in moves ++ [(Move x y player)]