FromJSON化を自動でできるので驚くぐらい簡単に使える。
!! Data.Aeson.TH で書き直す
本題
型を定義しないで探索するサンプル
parser の部分に関して、parseJSON で Value->Parser にして、ノードの型決め打ちで、withObjectやwithTextなどを繋いでいく。
おまけ
json文字列を埋め込んでいる部分が醜いです。ヒアドキュメントがないので、TH作れば良いとのことですが、既にText.Shakespeare.Textにあるものを使わせていただけばよいようです。
encodeUtf8 [lt|{"url": "http://yahoo.co.jp"}|]