Haskell Aeson如何解析带有列表值的键？

{
  "name": "John",
  "age": 30,
  "hobbies": ["reading", "coding", "gaming"]
}

data Person = Person
  { name :: String
  , age :: Int
  , hobbies :: [String]
  } deriving (Show, Generic)

instance FromJSON Person

import Data.Aeson

jsonString :: ByteString
jsonString = "{\"name\":\"John\",\"age\":30,\"hobbies\":[\"reading\",\"coding\",\"gaming\"]}"

main :: IO ()
main = do
  let maybePerson = decode jsonString :: Maybe Person
  case maybePerson of
    Just person -> print person
    Nothing -> putStrLn "Failed to parse JSON"