Example.hs

--    AUTO-GENERATED, DO NOT EDIT !!!
data CampaignTemplateMaybe = CampaignTemplateMaybe
    { maybe_name :: !(Maybe Text)
    , maybe_kind :: !(Maybe Text)
    , maybe_definition :: !(Maybe Text)
    , maybe_saved :: !(Maybe Bool)
    , maybe_hidden :: !(Maybe Bool)
    , maybe_last_active :: !(Maybe UTCTime)
    }
    deriving (Show, Read, Ord, Eq)

instance FromJSON CampaignTemplateMaybe where
    parseJSON = withObject "CampaignTemplateMaybe" $ \o -> do
        maybe_name <- (o .:? "name")
        maybe_kind <- (o .:? "kind")
        maybe_definition <- (o .:? "definition")
        maybe_saved <- (o .:? "saved")
        maybe_hidden <- (o .:? "hidden")
        maybe_last_active <- (readDate =<<) <$> (o .:? "last_active")
        return $ CampaignTemplateMaybe {..}