Donne une valeur par défaut pour les champs non disponibles dans json en utilisant aeson

Question

J'essaye de charger json en utilisant la bibliothèque Aeson. Le fait est que la structure de données dans laquelle je veux le charger contient plus de champs que le json. Où seuls les champs nom et fichier sont disponibles dans le fichier json. L'image est une image brillante qui ne peut pas vraiment être chargée à partir de JSON.

Je n'arrive pas à comprendre comment ignorer res et charger hors de l'instance FromJSON.

Answer 1

Si vous ne pouvez pas charger cette structure à partir de JSON, ne la définissez pas de cette façon! Make it

data ResourceRef = ResRef 
       { name :: String 
       , file :: FilePath 
       } deriving (Generic, Show) 

Cela peut être facilement chargé à partir de JSON. Vous pouvez alors avoir un

data Resource = Res 
       { resName :: String 
       , resFile :: FilePath 
       , res :: Picture 
       } deriving (Generic, Show) 

qui n'entrera jamais en contact avec JSON. Et implémenter

loadResource :: ResourceRef -> IO Resource