Blogger - Folding tree - 2 (Haskell)

generateTree :: [a] -> Tree a
generateTree source = case source of
  []     -> Empty
  (x:xs) -> let lr = generateTree(xs) in Node x lr lr