th-reify-many 0.1.3 → 0.1.4

raw patch · 2 files changed

+10/−1 lines, 2 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• src/Language/Haskell/TH/ReifyMany/Internal.hs +9/−0
• th-reify-many.cabal +1/−1

@@ -27,8 +27,13 @@ -- types of the fields.  In the case of a type synonyms, it just -- returns the body of the type synonym as a singleton list. decToFieldTypes :: Dec -> [[Type]]+#if MIN_VERSION_template_haskell(2,11,0)+decToFieldTypes (DataD _ _ _ _ cons _) = map conToFieldTypes cons+decToFieldTypes (NewtypeD _ _ _ _ con _) = [conToFieldTypes con]+#else decToFieldTypes (DataD _ _ _ cons _) = map conToFieldTypes cons decToFieldTypes (NewtypeD _ _ _ con _) = [conToFieldTypes con]+#endif decToFieldTypes (TySynD _ _ ty) = [[ty]] decToFieldTypes _ = [] @@ -38,6 +43,10 @@ conToFieldTypes (RecC _ xs) = map (\(_, _, ty) -> ty) xs conToFieldTypes (InfixC (_, ty1) _ (_, ty2)) = [ty1, ty2] conToFieldTypes (ForallC _ _ con) = conToFieldTypes con+#if MIN_VERSION_template_haskell(2,11,0)+conToFieldTypes (GadtC _ xs _) = map snd xs+conToFieldTypes (RecGadtC _ xs _) = map (\(_, _, ty) -> ty) xs+#endif  -- | Returns the names of all type constructors which aren't involved -- in constraints.

@@ -1,5 +1,5 @@ name:              th-reify-many-version:           0.1.3+version:           0.1.4 synopsis:          Recurseively reify template haskell datatype info  description:       @th-reify-many@ provides functions for recursively reifying top