{"body":"I have written a function flattening the tree however it does not have the pattern matching you suggest, at least doesnt need it, However i still pass and empty\nlistTree :: Tree a -> [a]\nlistTree = foldTree f z\n    where\n    f l x r = l ++ [x] ++ r\n    z = []","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/3lMua9X3","modified":1636141030,"id":"3lMua9X3","size":259,"lines":6,"own_paste":false,"theme":"","date":1636141030}