vector-th-unbox 0.2.1.7 → 0.2.1.8
raw patch · 2 files changed
+22/−20 lines, 2 filesdep ~basedep ~template-haskellnew-uploader
Dependency ranges changed: base, template-haskell
Files
- Data/Vector/Unboxed/Deriving.hs +15/−13
- vector-th-unbox.cabal +7/−7
Data/Vector/Unboxed/Deriving.hs view
@@ -126,12 +126,9 @@ # define MAYBE_KIND # define MAYBE_OVERLAP #endif-#if MIN_VERSION_template_haskell(2,15,0)- let newtypeMVector = NewtypeInstD [] Nothing (ConT ''MVector `AppT` s `AppT` typ) MAYBE_KIND-#else- let newtypeMVector = NewtypeInstD [] ''MVector [s, typ] MAYBE_KIND-#endif- (NormalC mvName [(lazy, ConT ''MVector `AppT` s `AppT` rep)]) []+ let newtypeMVector = newtypeInstD' ''MVector [s, typ]+ (NormalC mvName [(lazy, ConT ''MVector `AppT` s `AppT` rep)])+ MAYBE_KIND let mvCon = ConE mvName let instanceMVector = InstanceD MAYBE_OVERLAP cxts (ConT ''M.MVector `AppT` ConT ''MVector `AppT` typ) $ concat@@ -151,13 +148,10 @@ , wrap 'M.basicUnsafeMove [mv, mv'] id , wrap 'M.basicUnsafeGrow [mv, n] (liftE mvCon) ] -#if MIN_VERSION_template_haskell(2,15,0)- let newtypeVector = NewtypeInstD [] Nothing (ConT ''Vector `AppT` typ) MAYBE_KIND- (NormalC vName [(lazy, ConT ''Vector `AppT` rep)]) []-#else- let newtypeVector = NewtypeInstD [] ''Vector [typ] MAYBE_KIND- (NormalC vName [(lazy, ConT ''Vector `AppT` rep)]) []-#endif+ let newtypeVector = newtypeInstD' ''Vector [typ]+ (NormalC vName [(lazy, ConT ''Vector `AppT` rep)])+ MAYBE_KIND+ let vCon = ConE vName let instanceVector = InstanceD MAYBE_OVERLAP cxts (ConT ''G.Vector `AppT` ConT ''Vector `AppT` typ) $ concat@@ -172,6 +166,14 @@ return [ InstanceD MAYBE_OVERLAP cxts (ConT ''Unbox `AppT` typ) [] , newtypeMVector, instanceMVector , newtypeVector, instanceVector ]++newtypeInstD' :: Name -> [Type] -> Con -> Maybe Kind -> Dec+newtypeInstD' name args kind con = +#if MIN_VERSION_template_haskell(2,15,0)+ NewtypeInstD [] Nothing (foldl AppT (ConT name) args) con kind []+#else+ NewtypeInstD [] name args con kind []+#endif #undef __GLASGOW_HASKELL__ {-$usage
vector-th-unbox.cabal view
@@ -1,5 +1,5 @@ name: vector-th-unbox-version: 0.2.1.7+version: 0.2.1.8 synopsis: Deriver for Data.Vector.Unboxed using Template Haskell description: A Template Haskell deriver for unboxed vectors, given a pair of coercion@@ -7,21 +7,21 @@ . Refer to "Data.Vector.Unboxed.Deriving" for documentation and examples. stability: experimental+homepage: https://github.com/tsurucapital/vector-th-unbox license: BSD3 license-file: LICENSE copyright: (c) 2012-2015 Liyang HU author: Liyang HU <vector-th-unbox@liyang.hu>-maintainer: Liyang HU <vector-th-unbox@liyang.hu>+maintainer: Fumiaki Kinoshita <fumiexcel@gmail.com> category: Data build-type: Simple cabal-version: >= 1.10 tested-with:- GHC == 7.4.2, GHC == 7.6.3, GHC == 7.8.4, GHC == 7.10.3,- GHC == 8.0.2, GHC == 8.2.2, GHC == 8.4.4, GHC == 8.6.5, GHC == 8.8.1+ GHC == 8.6.5, GHC == 8.8.3, GHC == 8.10.1, GHC == 9.0.1 source-repository head type: git- location: http://github.com/liyang/vector-th-unbox+ location: http://github.com/tsurucapital/vector-th-unbox library default-language: Haskell2010@@ -29,8 +29,8 @@ Data.Vector.Unboxed.Deriving build-depends:- base >= 4.5 && < 4.14,- template-haskell >= 2.5 && <2.16,+ base >= 4.5 && < 4.16,+ template-haskell >= 2.5 && <2.18, vector >= 0.7.1 && <0.13 test-suite sanity