递归地更改Haskell中的JSON数据结构

import Data.Aeson

-- 定义一个JSON数据结构
data JsonValue = JsonString String
               | JsonNumber Double
               | JsonObject [(String, JsonValue)]
               | JsonArray [JsonValue]
               | JsonBool Bool
               | JsonNull
               deriving (Show)

-- 递归地更改JSON数据结构
modifyJson :: JsonValue -> JsonValue
modifyJson (JsonString str) = JsonString ("Modified: " ++ str)
modifyJson (JsonNumber num) = JsonNumber (num * 2)
modifyJson (JsonObject obj) = JsonObject (map (\(k, v) -> (k, modifyJson v)) obj)
modifyJson (JsonArray arr) = JsonArray (map modifyJson arr)
modifyJson json = json

-- 示例用法
main :: IO ()
main = do
  let json = JsonObject [("name", JsonString "John"), ("age", JsonNumber 25), ("hobbies", JsonArray [JsonString "reading", JsonString "coding"])]
  let modifiedJson = modifyJson json
  print modifiedJson