undefined-keys=apply-defaults to missing=default

2023-03-29 05:33:38 -05:00
parent 46fd856fc6
commit 7629eff51d
6 changed files with 36 additions and 36 deletions
@@ -109,7 +109,7 @@ createResponse QualifiedIdentifier{..} MutateReadPlan{mrMutatePlan} ctxApiReques
              Nothing
            else
              toAppliedHeader <$> preferResolution
-          , toAppliedHeader <$> preferUndefinedKeys
+          , toAppliedHeader <$> preferMissing
          ]

    if preferRepresentation == Full then
@@ -128,7 +128,7 @@ updateResponse ctxApiRequest@ApiRequest{iPreferences=Preferences{..}} resultSet
      contentRangeHeader =
        Just . RangeQuery.contentRangeH 0 (rsQueryTotal - 1) $
          if shouldCount preferCount then Just rsQueryTotal else Nothing
-      headers = catMaybes [contentRangeHeader, toAppliedHeader <$> preferUndefinedKeys]
+      headers = catMaybes [contentRangeHeader, toAppliedHeader <$> preferMissing]

    if preferRepresentation == Full then
        response HTTP.status200