在Haskell中显示二叉树的问题

Question

所以，我已成功设法创建一个平衡的二叉树，但是我在尝试将其作为树在GHCi中显示时遇到了麻烦。

目前该计划正在返回：

Node 1 (Node 2 (Node 3 Empty Empty) (Node 4 Empty Empty)) (Node 5 (Node 6 Empty Empty) (Node 7 Empty Empty))

但是，我想尝试使用这些代码进行打印：

     1
    /  \
   2    5
  / \   /\
 3   4  6 7

我看过一些使用漂亮打印的答案，但我发现使用起来非常混乱。

有什么建议吗？