Объединить деревья haskell

Question

У меня что-то вроде этого

data Tree a = Null |Nod (Tree a) a (Tree a)

Я хочу создать функцию слияния, которая объединит два заданных дерева, а корень конечного дерева всегда будет корнем левого листапервого дерева.Цель состоит в том, чтобы при этом удалить левый лист.

Answer 1

Что-то вроде:

mergeTrees Null t2 = t2
mergeTrees (Nod left value right) t2 = Nod (mergeTrees left t2) value right