staversion 0.2.1.2 → 0.2.1.3
raw patch · 6 files changed
+33/−13 lines, 6 filesdep ~Cabaldep ~QuickCheckdep ~aeson
Dependency ranges changed: Cabal, QuickCheck, aeson, base, http-types, megaparsec, transformers-compat
Files
- ChangeLog.md +7/−0
- src/Staversion/Internal/Aggregate.hs +1/−1
- src/Staversion/Internal/Format.hs +1/−1
- src/Staversion/Internal/Version.hs +15/−2
- staversion.cabal +8/−8
- test/Staversion/Internal/TestUtil.hs +1/−1
ChangeLog.md view
@@ -1,5 +1,12 @@ # Revision history for staversion +## 0.2.1.3 -- 2018-03-09++* Support `aeson-1.3.0.0`, `base-4.10.0.0`, `Cabal-2.2.0.0`,+ `http-types-0.12.1`, `megaparsec-6.4.1`, `QuickCheck-2.11.3`,+ `transformers-0.6.0.6`++ ## 0.2.1.2 -- 2017-07-29 * Fix build and test with `megaparsec-4`.
src/Staversion/Internal/Aggregate.hs view
@@ -93,7 +93,7 @@ aggPvpGeneral :: ([Int] -> [Int]) -> Aggregator aggPvpGeneral makeUpper = V.simplifyVersionRange . foldr1 V.unionVersionRanges . fmap toRange . NL.nub . NL.sort where- toRange v = fromJust $ fmap V.fromVersionIntervals $ V.mkVersionIntervals [(V.LowerBound norm_v V.InclusiveBound, V.UpperBound vu V.ExclusiveBound)] where+ toRange v = V.fromVersionIntervals $ V.mkVersionIntervals [(V.LowerBound norm_v V.InclusiveBound, V.UpperBound vu V.ExclusiveBound)] where norm_v = V.mkVersion $ normalizeTralingZeroes $ V.versionNumbers v vu = V.mkVersion $ makeUpper $ V.versionNumbers norm_v
src/Staversion/Internal/Format.hs view
@@ -64,7 +64,7 @@ _ -> fallback where formatV v = pack $ concat $ intersperse "." $ map show $ V.versionNumbers v- fallback = formatVersionCabal $ V.fromVersionIntervals $ fromJust $ V.mkVersionIntervals [vi]+ fallback = formatVersionCabal $ V.fromVersionIntervals $ V.mkVersionIntervals [vi] isCaretOK :: V.Version -> V.Version -> Bool isCaretOK inc_lv exc_uv = isCaretOK' (V.versionNumbers inc_lv) (V.versionNumbers exc_uv) where
src/Staversion/Internal/Version.hs view
@@ -17,10 +17,10 @@ V.unionVersionRanges, V.simplifyVersionRange, V.fromVersionIntervals,- V.mkVersionIntervals, V.asVersionIntervals, -- * Compatibility mkVersion,+ mkVersionIntervals, versionNumbers, -- * Util BaseVersion,@@ -28,7 +28,7 @@ parseVersionText ) where -import Data.Maybe (listToMaybe)+import Data.Maybe (listToMaybe, fromJust) import Data.Text (Text, unpack) import qualified Distribution.Version as V import Data.Version (parseVersion)@@ -64,5 +64,18 @@ versionNumbers :: V.Version -> [Int] versionNumbers = V.versionBranch++#endif+++#if MIN_VERSION_Cabal(2,2,0)++mkVersionIntervals :: [V.VersionInterval] -> V.VersionIntervals+mkVersionIntervals = V.mkVersionIntervals++#else++mkVersionIntervals :: [V.VersionInterval] -> V.VersionIntervals+mkVersionIntervals = fromJust . V.mkVersionIntervals #endif
staversion.cabal view
@@ -1,5 +1,5 @@ name: staversion-version: 0.2.1.2+version: 0.2.1.3 author: Toshio Ito <debug.ito@gmail.com> maintainer: Toshio Ito <debug.ito@gmail.com> license: BSD3@@ -47,9 +47,9 @@ other-modules: Paths_staversion, Staversion.Internal.HTTP, Staversion.Internal.Megaparsec- build-depends: base >=4.8 && <4.10,+ build-depends: base >=4.8 && <4.11, unordered-containers >=0.2.3 && <0.3,- aeson >=0.8.0 && <1.3,+ aeson >=0.8.0 && <1.4, text >=0.11.3 && <1.3, bytestring >=0.10.0 && <0.11, yaml >=0.8.3 && <0.9,@@ -59,12 +59,12 @@ containers >=0.5.5 && <0.6, http-client >=0.4.18 && <0.6, http-client-tls >=0.2.2 && <0.4,- http-types >=0.8.6 && <0.10,+ http-types >=0.8.6 && <0.13, transformers >=0.3.0 && <0.6,- transformers-compat >=0.4.0 && <0.6,- megaparsec >=4.2.0 && <6.1,+ transformers-compat >=0.4.0 && <0.7,+ megaparsec >=4.2.0 && <6.5, semigroups >=0.18.0.1 && <0.19,- Cabal >=1.22.6.0 && <2.1,+ Cabal >=1.22.6.0 && <2.3, pretty >=1.1.2.0 && <1.2, ansi-wl-pprint >=0.6.7.3 && <0.7 @@ -98,7 +98,7 @@ build-depends: base, staversion, text, filepath, bytestring, Cabal, semigroups, hspec >=2.1.7,- QuickCheck >=2.8.1 && <2.11+ QuickCheck >=2.8.1 && <2.12 flag network-test description: Enable network tests.
test/Staversion/Internal/TestUtil.hs view
@@ -45,6 +45,6 @@ -- | Version interval. vint x y = [x, y) vint :: [Int] -> [Int] ->V.VersionRange-vint vl vu = fromJust $ fmap V.fromVersionIntervals $ V.mkVersionIntervals [interval] where+vint vl vu = V.fromVersionIntervals $ V.mkVersionIntervals [interval] where interval = (V.LowerBound (ver vl) V.InclusiveBound, V.UpperBound (ver vu) V.ExclusiveBound)