packages feed

swagger2 1.2 → 1.2.1

raw patch · 3 files changed

+30/−2 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Data.Swagger.Lens: _SwaggerItemsArray :: t_adTG ~ Schema => Review (SwaggerItems t_adTG) [Referenced Schema]
+ Data.Swagger.Lens: _SwaggerItemsArray :: (t ~ Schema) => Review (SwaggerItems t) [Referenced Schema]
- Data.Swagger.Lens: _SwaggerItemsObject :: t_adTG ~ Schema => Review (SwaggerItems t_adTG) (Referenced Schema)
+ Data.Swagger.Lens: _SwaggerItemsObject :: (t ~ Schema) => Review (SwaggerItems t) (Referenced Schema)
- Data.Swagger.Lens: _SwaggerItemsPrimitive :: Prism' (SwaggerItems t_adTG) (Maybe (CollectionFormat t_adTG), ParamSchema t_adTG)
+ Data.Swagger.Lens: _SwaggerItemsPrimitive :: (Profunctor p, Bifunctor p, Functor f) => Optic' p f (SwaggerItems t) (Maybe (CollectionFormat t), ParamSchema t)

Files

CHANGELOG.md view
@@ -1,3 +1,12 @@+1.2.1+---++* Minor change:+    * Change `_SwaggerItemsPrimitive` type from a `Prism'` to a more restrictive `Review`-like `Optic'`.++* Fixes:+    * Fix build for GHC 8.0-rc1.+ 1.2 --- * Minor changes (see [#36](https://github.com/GetShopTV/swagger2/pull/36)):
src/Data/Swagger/Lens.hs view
@@ -2,6 +2,7 @@ {-# LANGUAGE FunctionalDependencies #-} {-# LANGUAGE GADTs #-} {-# LANGUAGE MultiParamTypeClasses #-}+{-# LANGUAGE RankNTypes #-} {-# LANGUAGE TemplateHaskell #-} module Data.Swagger.Lens where @@ -42,8 +43,26 @@ makeLenses ''Header -- ** 'Schema' lenses makeLenses ''Schema+ -- ** 'SwaggerItems' prisms-makePrisms ''SwaggerItems++_SwaggerItemsArray :: forall t. (t ~ Schema) => Review (SwaggerItems t) [Referenced Schema]+_SwaggerItemsArray+  = prism (\x -> SwaggerItemsArray x) $ \x -> case x of+      SwaggerItemsPrimitive c p -> Left (SwaggerItemsPrimitive c p)+      SwaggerItemsObject o      -> Left (SwaggerItemsObject o)+      SwaggerItemsArray a       -> Right a++_SwaggerItemsObject :: forall t. (t ~ Schema) => Review (SwaggerItems t) (Referenced Schema)+_SwaggerItemsObject+  = prism (\x -> SwaggerItemsObject x) $ \x -> case x of+      SwaggerItemsPrimitive c p -> Left (SwaggerItemsPrimitive c p)+      SwaggerItemsObject o      -> Right o+      SwaggerItemsArray a       -> Left (SwaggerItemsArray a)++_SwaggerItemsPrimitive :: forall t p f. (Profunctor p, Bifunctor p, Functor f) => Optic' p f (SwaggerItems t) (Maybe (CollectionFormat t), ParamSchema t)+_SwaggerItemsPrimitive = unto (\(c, p) -> SwaggerItemsPrimitive c p)+ -- ** 'ParamSchema' lenses makeLenses ''ParamSchema -- ** 'Xml' lenses
swagger2.cabal view
@@ -1,5 +1,5 @@ name:                swagger2-version:             1.2+version:             1.2.1 synopsis:            Swagger 2.0 data model description:         Please see README.md homepage:            https://github.com/GetShopTV/swagger2