可選欄位

有時，我們希望 JSON 字串中的某些欄位是可選的。例如，

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

這可以通過以下方式實現

import Data.Aeson.TH

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