如何使用postgresql-simple检索JSON jsonb值？

import Database.PostgreSQL.Simple
import Database.PostgreSQL.Simple.FromRow
import Database.PostgreSQL.Simple.ToRow
import Database.PostgreSQL.Simple.ToField
import Database.PostgreSQL.Simple.FromField

conn <- connect defaultConnectInfo { 
    connectHost = "localhost",
    connectPort = 5432,
    connectUser = "username",
    connectPassword = "password",
    connectDatabase = "database"
}

results <- query_ conn "SELECT json_column FROM table_name"

data MyData = MyData { jsonData :: Value }

instance FromRow MyData where
    fromRow = MyData <$> field

-- 处理查询结果
let myDataList = map (\(MyData json) -> json) results

import Data.Aeson

instance FromField Value where
    fromField field mdata = case mdata of
        Just bs -> case eitherDecodeStrict bs of
            Left err -> returnError ConversionFailed field err
            Right val -> return val
        Nothing -> returnError UnexpectedNull field ""