可选字段

有时，我们希望 JSON 字符串中的某些字段是可选的。例如，

data Person = Person { firstName::Text
                     , lastName  :: Text
                     , age       :: Maybe Int 
                     }

这可以通过以下方式实现

import Data.Aeson.TH

$(deriveJSON defaultOptions{omitNothingFields = True} ''Person)