一个Haskell的有关问题

求助一个Haskell的问题
我学haskell才学了几天， ，   所以不会弄这个问题。。。

就是给一个树， 要求按照从左到右的顺序排列
比如这个图，  结果应该是这样子的， order l=[6,3,9,2,5,8,4]

求助大家， 这个应该怎么写啊


------解决方案--------------------

data Tree a = Empty
            
------解决方案--------------------
 Node a (Tree a) (Tree a)
              deriving (Show, Eq)

tree = Node 2
       (Node 3
                 (Node 6 Empty Empty)
                 (Node 9 Empty Empty))
       (Node 8
                 (Node 5 Empty Empty)
                 (Node 4 Empty Empty))

in_order :: Tree a -> [a]
in_order Empty = []
in_order (Node val left right) =
    in_order left ++ [val] ++ in_order right

main :: IO ()
main = putStrLn . show . in_order $ tree