autodocodec-swagger2 0.0.1.2 → 0.0.1.3

raw patch · 3 files changed

+21/−6 lines, 3 filesdep ~autodocodecPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: autodocodec

API changes (from Hackage documentation)

Files

• CHANGELOG.md +4/−0
• autodocodec-swagger2.cabal +2/−2
• src/Autodocodec/Swagger/Schema.hs +15/−4

@@ -1,5 +1,9 @@ # Changelog +## [0.0.1.3] - 2024-07-26++* Support for `autodocodec >=0.4`.+ ## [0.0.1.1] - 2022-07-21  ### Added

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           autodocodec-swagger2-version:        0.0.1.2+version:        0.0.1.3 synopsis:       Autodocodec interpreters for swagger2 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.3.0.0+    , autodocodec >=0.4.0.0     , base >=4.7 && <5     , insert-ordered-containers     , scientific

@@ -42,17 +42,28 @@               }       BoolCodec mname -> NamedSchema mname <$> declareSchema (Proxy :: Proxy Bool)       StringCodec mname -> NamedSchema mname <$> declareSchema (Proxy :: Proxy Text)+      IntegerCodec mname mBounds -> do+        s <- declareSchema (Proxy :: Proxy Integer)+        let addNumberBounds Bounds {..} s_ =+              s_+                { _schemaParamSchema =+                    (_schemaParamSchema s_)+                      { _paramSchemaMinimum = fromInteger <$> boundsLower,+                        _paramSchemaMaximum = fromInteger <$> boundsUpper+                      }+                }+        pure $ NamedSchema mname $ addNumberBounds mBounds s       NumberCodec mname mBounds -> do         s <- declareSchema (Proxy :: Proxy Scientific)-        let addNumberBounds NumberBounds {..} s_ =+        let addNumberBounds Bounds {..} s_ =               s_                 { _schemaParamSchema =                     (_schemaParamSchema s_)-                      { _paramSchemaMinimum = Just numberBoundsLower,-                        _paramSchemaMaximum = Just numberBoundsUpper+                      { _paramSchemaMinimum = boundsLower,+                        _paramSchemaMaximum = boundsUpper                       }                 }-        pure $ NamedSchema mname $ maybe id addNumberBounds mBounds s+        pure $ NamedSchema mname $ addNumberBounds mBounds s       HashMapCodec c -> do         itemsSchema <- go c         itemsSchemaRef <- declareSpecificNamedSchemaRef itemsSchema