autodocodec-openapi3 0.2.1.1 → 0.2.1.2

raw patch · 2 files changed

+8/−8 lines, 2 filesdep ~autodocodecPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: autodocodec

API changes (from Hackage documentation)

Files

• autodocodec-openapi3.cabal +3/−3
• src/Autodocodec/OpenAPI/Schema.hs +5/−5

@@ -1,11 +1,11 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.34.7.+-- This file has been generated from package.yaml by hpack version 0.36.0. -- -- see: https://github.com/sol/hpack  name:           autodocodec-openapi3-version:        0.2.1.1+version:        0.2.1.2 synopsis:       Autodocodec interpreters for openapi3 homepage:       https://github.com/NorfairKing/autodocodec#readme bug-reports:    https://github.com/NorfairKing/autodocodec/issues@@ -34,7 +34,7 @@       src   build-depends:       aeson-    , autodocodec >=0.2.0.0+    , autodocodec >=0.3.0.0     , base >=4.7 && <5     , insert-ordered-containers     , lens

@@ -28,7 +28,7 @@ import Data.Text (Text)  -- | Use a type's 'codec' to implement 'declareNamedSchema'.-declareNamedSchemaViaCodec :: HasCodec value => Proxy value -> Declare (Definitions Schema) NamedSchema+declareNamedSchemaViaCodec :: (HasCodec value) => Proxy value -> Declare (Definitions Schema) NamedSchema declareNamedSchemaViaCodec proxy = declareNamedSchemaVia codec proxy  -- | Use a given 'codec' to implement 'declareNamedSchema'.@@ -173,7 +173,7 @@                 _schemaType = Just OpenApiObject               }           ]-      OptionalKeyWithOmittedDefaultCodec key vs defaultValue mDoc -> goObject (OptionalKeyWithDefaultCodec key vs defaultValue mDoc)+      OptionalKeyWithOmittedDefaultCodec key vs defaultValue mDoc -> goObject (optionalKeyWithDefaultCodec key vs defaultValue mDoc)       PureCodec _ -> pure []       EitherCodec u oc1 oc2 -> do         s1s <- goObject oc1@@ -219,7 +219,7 @@     combineObjectSchemas :: [Schema] -> Schema     combineObjectSchemas = mconcat -    combineSchemasOr :: MonadDeclare (Definitions Schema) m => Union -> NamedSchema -> NamedSchema -> m NamedSchema+    combineSchemasOr :: (MonadDeclare (Definitions Schema) m) => Union -> NamedSchema -> NamedSchema -> m NamedSchema     combineSchemasOr u ns1 ns2 = do       let s1 = _namedSchemaSchema ns1       let s2 = _namedSchemaSchema ns2@@ -250,12 +250,12 @@               (Nothing, Just s2s) -> prototype & orLens ?~ (s1Ref : s2s)               (Nothing, Nothing) -> prototype & orLens ?~ [s1Ref, s2Ref] -declareSpecificNamedSchemaRef :: MonadDeclare (Definitions Schema) m => OpenAPI.NamedSchema -> m (Referenced NamedSchema)+declareSpecificNamedSchemaRef :: (MonadDeclare (Definitions Schema) m) => OpenAPI.NamedSchema -> m (Referenced NamedSchema) declareSpecificNamedSchemaRef namedSchema =   fmap (NamedSchema (_namedSchemaName namedSchema))     <$> declareSpecificSchemaRef (_namedSchemaName namedSchema) (_namedSchemaSchema namedSchema) -declareSpecificSchemaRef :: MonadDeclare (Definitions Schema) m => Maybe Text -> OpenAPI.Schema -> m (Referenced Schema)+declareSpecificSchemaRef :: (MonadDeclare (Definitions Schema) m) => Maybe Text -> OpenAPI.Schema -> m (Referenced Schema) declareSpecificSchemaRef mName s =   case mName of     Nothing -> pure $ Inline s