generic-aeson 0.2.0.11 → 0.2.0.12

raw patch · 2 files changed

+12/−6 lines, 2 filesdep ~attoparsecdep ~basePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: attoparsec, base

API changes (from Hackage documentation)

Files

• generic-aeson.cabal +2/−2
• src/Generics/Generic/Aeson/Util.hs +10/−4

@@ -1,5 +1,5 @@ name:                generic-aeson-version:             0.2.0.11+version:             0.2.0.12 synopsis:            Derivation of Aeson instances using GHC generics. description:         Derivation of Aeson instances using GHC generics. author:              Silk@@ -27,7 +27,7 @@     Generics.Generic.Aeson.Util     Generics.Generic.IsEnum   build-depends:-      base >= 4.4 && < 4.15+      base >= 4.4 && < 4.16     , aeson >= 0.6 && < 1.6     , attoparsec >= 0.11 && < 0.14     , generic-deriving >= 1.6 && < 1.15

@@ -28,17 +28,23 @@  import Generics.Generic.IsEnum +#if MIN_VERSION_base(4,15,0)+import Data.Kind (Type)+#else+type Type = (*)+#endif+ #if MIN_VERSION_base(4,9,0)-conNameT :: forall (t :: * -> Meta -> (* -> *) -> * -> *) i c (f :: * -> *) p. Constructor c => Settings -> t i c f p -> Text+conNameT :: forall (t :: Type -> Meta -> (Type -> Type) -> Type -> Type) i c (f :: Type -> Type) p. Constructor c => Settings -> t i c f p -> Text #else-conNameT :: forall c (t :: * -> (* -> *) -> * -> *) (f :: * -> *) a. Constructor c => Settings -> t c f a -> Text+conNameT :: forall c (t :: Type -> (Type -> Type) -> Type -> Type) (f :: Type -> Type) a. Constructor c => Settings -> t c f a -> Text #endif conNameT set x = formatLabel set . T.pack . conName $ x  #if MIN_VERSION_base(4,9,0)-selNameT :: forall (t :: * -> Meta -> (* -> *) -> * -> *) i s (f :: * -> *) p. Selector s => Settings -> t i s f p -> Maybe Text+selNameT :: forall (t :: Type -> Meta -> (Type -> Type) -> Type -> Type) i s (f :: Type -> Type) p. Selector s => Settings -> t i s f p -> Maybe Text #else-selNameT :: forall s (t :: * -> (* -> *) -> * -> *) (f :: * -> *) a. Selector s => Settings -> t s f a -> Maybe Text+selNameT :: forall s (t :: Type -> (Type -> Type) -> Type -> Type) (f :: Type -> Type) a. Selector s => Settings -> t s f a -> Maybe Text #endif selNameT set x = case formatLabel set . T.pack . selName $ x of   "" -> Nothing