packages feed

autodocodec-swagger2 0.1.0.0 → 0.1.0.1

raw patch · 3 files changed

+20/−5 lines, 3 filesdep ~autodocodec

Dependency ranges changed: autodocodec

Files

CHANGELOG.md view
@@ -1,5 +1,11 @@ # Changelog +## [0.1.0.1] - 2026-07-14++### Changed++* Lower bound on `autodocodec >=0.6`+ ## [0.1.0.0] - 2024-07-29  * Dropped support for orphan instances.
autodocodec-swagger2.cabal view
@@ -1,11 +1,11 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.36.0.+-- This file has been generated from package.yaml by hpack version 0.38.3. -- -- see: https://github.com/sol/hpack  name:           autodocodec-swagger2-version:        0.1.0.0+version:        0.1.0.1 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.4.0.0+    , autodocodec >=0.6.0.0     , base >=4.7 && <5     , insert-ordered-containers     , scientific
src/Autodocodec/Swagger/Schema.hs view
@@ -5,7 +5,6 @@ {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE ScopedTypeVariables #-}-{-# OPTIONS_GHC -fno-warn-orphans #-}  module Autodocodec.Swagger.Schema where @@ -41,7 +40,17 @@                     }               }       BoolCodec mname -> NamedSchema mname <$> declareSchema (Proxy :: Proxy Bool)-      StringCodec mname -> NamedSchema mname <$> declareSchema (Proxy :: Proxy Text)+      StringCodec mname mBounds -> do+        s <- declareSchema (Proxy :: Proxy Text)+        let addStringBounds StringBounds {..} s_ =+              s_+                { _schemaParamSchema =+                    (_schemaParamSchema s_)+                      { _paramSchemaMinLength = fromIntegral <$> stringBoundsMinLength,+                        _paramSchemaMaxLength = fromIntegral <$> stringBoundsMaxLength+                      }+                }+        pure $ NamedSchema mname $ addStringBounds mBounds s       IntegerCodec mname mBounds -> do         s <- declareSchema (Proxy :: Proxy Integer)         let addNumberBounds Bounds {..} s_ =