Haskell Tree - Показать экземпляр

Question

Я изучаю haskell, и я хочу напечатать все узлы в дереве (в зависимости от высоты на дереве, где height = 0 => leafs). И я думаю, что создаю хорошую функцию, но у меня проблема с функцией show.

data Tree a = Empty | Node a (Tree a) (Tree a) deriving (Show) 

tree4 = Node 1 (Node 2 Empty (Node 0 Empty Empty)) (Node 4 Empty Empty) 
tree5 = Empty 

heightTree::Tree a -> Integer 
heightTree Empty = 0 
heightTree (Node x l r) = 1 + max (heightTree l) (heightTree r) 

treeLev::Tree a -> Integer -> [a] 
treeLev Empty a = [] 
treeLev (Node x l r) a = if a == heightTree l || a == heightTree r then [x] else treeLev l (a-1) ++ treeLev r (a-1) 

и когда я использую

*Main> treeLev tree4 

<interactive>:105:1: 
    No instance for (Show (Integer -> [Integer])) 
     arising from a use of `print' 
    Possible fix: 
     add an instance declaration for (Show (Integer -> [Integer])) 
    In a stmt of an interactive GHCi command: print it 
*Main> 

Может кто-нибудь объяснить, что я делаю неправильно? :)

Answer 1

Сообщение об ошибке, которое вы сообщаете, не говорит вам, что вы не можете распечатать дерево, оно говорит вам, что вы пытаетесь распечатать функцию, и она не может этого сделать.

Вы не указали нам строку с show или print, поэтому мы не можем понять, как ее исправить, но это то, что сообщение мне сообщает.