Add support for Specification Extensions

Co-authored-by: Alex Biehl <[email protected]>
Co-authored-by: Avery <[email protected]>

Author: 3 people

src/Data/OpenApi.hs

@@ -119,6 +119,7 @@ module Data.OpenApi (
   -- ** Miscellaneous
   MimeList(..),
   URL(..),
+  SpecificationExtensions (..),
 ) where
 
 import Data.OpenApi.Lens

src/Data/OpenApi/Aeson/Compat.hs

@@ -20,6 +20,9 @@ deleteKey = KeyMap.delete
 objectToList :: KeyMap.KeyMap v -> [(Key, v)]
 objectToList = KeyMap.toList
 
+objectFromList :: [(Key, v)] -> KeyMap.KeyMap v
+objectFromList = KeyMap.fromList
+
 objectKeys :: KeyMap.KeyMap v -> [T.Text]
 objectKeys = map Key.toText . KeyMap.keys
 
@@ -50,6 +53,9 @@ deleteKey = HM.delete
 objectToList :: HM.HashMap T.Text v -> [(T.Text, v)]
 objectToList = HM.toList
 
+objectFromList :: [(T.Text, v)] -> HM.HashMap T.Text v
+objectFromList = HM.fromList
+
 objectKeys :: HM.HashMap T.Text v -> [T.Text]
 objectKeys = HM.keys