Add support for Specification Extensions

Co-authored-by: Alex Biehl <[email protected]> Co-authored-by: Avery <[email protected]>
biocad · Apr 24, 2024 · c1ac4fb · c1ac4fb
1 parent efb9a50
commit c1ac4fb
Show file tree

Hide file tree

Showing 7 changed files with 263 additions and 101 deletions.
diff --git a/src/Data/OpenApi.hs b/src/Data/OpenApi.hs
@@ -119,6 +119,7 @@ module Data.OpenApi (
   -- ** Miscellaneous
   MimeList(..),
   URL(..),
+  SpecificationExtensions (..),
 ) where
 
 import Data.OpenApi.Lens

diff --git a/src/Data/OpenApi/Aeson/Compat.hs b/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