Weglassen Nichts/null Felder in Haskell Aeson

Question

Ich habe eine Art

{-# LANGUAGE DeriveGeneric #-} 
{-# LANGUAGE TemplateHaskell #-} 
{-# LANGUAGE MultiWayIf  #-} 

import GHC.Generics 
import Data.Aeson.TH 
import Data.Aeson.Types 

data MyJSONObject = MyJSONObject 
    { name :: String 
    , ptype :: Maybe String 
    , pid  :: Maybe String 
    , subject :: Maybe String 
    , message :: Maybe String 
    } deriving (Show, Generic) 

mit sehr vielen mehr Maybe String Felder aus. Meine FromJSON und ToJSON durch die TemplateHaskell Funktion zur Verfügung gestellt werden

$(deriveJSON defaultOptions 
    { 
    omitNothingFields = True 
    , fieldLabelModifier = \f -> if 
     | f == "ptype" -> "type" -- reserved keyword 
     | f == "pid" -> "id" -- Prelude function name 
     | otherwise -> f 
    } ''MyJSONObject) 

Letztlich ist die Ausgabe des Programms ist ein JSON Dokument gedacht von einer Anwendung verbraucht werden, die Nullwerte nicht über einige Felder zulassen, auch wenn es tut erlauben Sie, dass diese Felder nicht existieren. Mit anderen Worten, es ist völlig in Ordnung, dass subject im JSON-Dokument nicht vorhanden ist, aber wenn es existiert, kann sein Wert nicht null sein. Meine Erwartung war, dass omitNothingFields würde diese Anforderung behandeln, aber dies scheint nicht der Fall zu sein: die decode d JSON hat noch Nothing Werte für Felder, die nicht vorhanden sind, und encode d JSON hat null Werte für diese Felder. Der erste Fall ist in Ordnung; Letzteres ist nicht die Frage.

Verwechsle ich oder missverstanden den Zweck von, omitNothingFields? Wie kann ich Felder mit Nothing/null Werten ignorieren?

Answer 1

Funktioniert für mich. Versuchen Sie, Generics statt TH zu verwenden. Vielleicht macht es das.

*Main Data.Aeson> decode "{\"name\":\"str\"}" :: Maybe MyJSONObject 
Just (MyJSONObject {name = "str", ptype = Nothing, pid = Nothing, subject = Nothing, message = Nothing}) 
*Main Data.Aeson> encode (MyJSONObject "str" Nothing Nothing Nothing Nothing) 
"{\"name\":\"str\"}" 

Der vollständige Code ist

{-# LANGUAGE DeriveGeneric #-} 
import GHC.Generics 
import Data.Aeson 
import Data.Aeson.Types 

data MyJSONObject = MyJSONObject 
    { name :: String 
    , ptype :: Maybe String 
    , pid  :: Maybe String 
    , subject :: Maybe String 
    , message :: Maybe String 
    } deriving (Show, Generic) 

instance ToJSON MyJSONObject where 
    toJSON = genericToJSON defaultOptions 
    { omitNothingFields = True } 

instance FromJSON MyJSONObject where 
    parseJSON = genericParseJSON defaultOptions 
    { omitNothingFields = True } 

GHC Mit 8.2.1, aeson-1.1.2.0.