wip

proda-ai · Oct 21, 2024 · 33f4296 · 33f4296
1 parent 1300fc1
commit 33f4296
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 2 deletions.
diff --git a/src/Data/OpenApi/Internal.hs b/src/Data/OpenApi/Internal.hs
@@ -1373,7 +1373,7 @@ instance ToJSON OpenApiItems where
     , "maxItems" .= (0 :: Int)
     , "example" .= Array mempty
     ]
-  toJSON (OpenApiItemsArray  x) = object [ "items" .= x ]
+  toJSON (OpenApiItemsArray  x) = object [ "prefixItems" .= x ]
 
 instance ToJSON Components where
   toJSON = sopSwaggerGenericToJSON

diff --git a/src/Data/OpenApi/Optics.hs b/src/Data/OpenApi/Optics.hs
@@ -232,6 +232,15 @@ instance
   ) => LabelOptic "items" A_Lens NamedSchema NamedSchema a b where
   labelOptic = #schema % #items
   {-# INLINE labelOptic #-}
+
+-- #prefixItems
+
+instance
+  ( a ~ Maybe OpenApiItems
+  , b ~ Maybe OpenApiItems
+  ) => LabelOptic "prefixItems" A_Lens NamedSchema NamedSchema a b where
+  labelOptic = #schema % #items
+  {-# INLINE labelOptic #-}
 
 -- #maximum
 

diff --git a/test/Data/OpenApi/CommonTestTypes.hs b/test/Data/OpenApi/CommonTestTypes.hs
@@ -482,7 +482,7 @@ ispairSchemaJSON :: Value
 ispairSchemaJSON = [aesonQQ|
 {
   "type": "array",
-  "items":
+  "prefixItems":
     [
       { "type": "integer" },
       { "type": "string"  }