json - Haskell でタプルの配列を JSON に変換する

Question

誰でも変換方法を知っていますか

tt :: (Int, [(Int, String)])
tt = (777, [(1, "AA") , (2, "BB") , (3, "CC")])

に似たJSONに

{
"user": 777,
"data": [ 
            { "num": 1 , "typ": "AA" },
            { "num": 2 , "typ": "BB" },
            { "num": 3 , "typ": "CC" } 
        ]
}

（できれば）Aesonを使用していますか？