Types.hs

data Filters = Filters
  { logicalOperator :: Text
  , conditions :: [Condition | Filters]
  } deriving (Show, Eq, Generic)

instance ToJSON Filters where
  toJSON = genericToJSON $ aesonDrop 0 snakeCase
instance FromJSON Filters where
  parseJSON = genericParseJSON $ aesonDrop 0 snakeCase

data Condition = Condition
  { path :: Text
  , relation :: Text
  , values :: [Value]
  } deriving (Show, Eq, Generic)

instance ToJSON Condition where
  toJSON = genericToJSON defaultOptions
instance FromJSON Condition