用Haskell-Aeson解析Json玫瑰树

我试图解析递归的JSON数据,类似这样:

{
    "node": "a",
    "children": [
        {
            "node": "b",
            "children": [
                {
                    "node": "c",
                    "children": null
                }
            ]
        },
        {
            "node": "d",
            "children": null
        }
    ]
}

现在我想实现一个FromJSON实例,这样我就可以把它解码成这样的数据结构: 以下数据结构

data Tree = Node { value :: Text, children :: [Tree]} | Nothing

我不知道怎么做。我只看到了如何使用Aeson为平面(非递归)JSON结构派生实例的示例。