union-color 0.1.2.0 → 0.1.2.1

raw patch · 2 files changed

+7/−5 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• src/Data/Color/Internal.hs +5/−3
• union-color.cabal +2/−2

@@ -152,8 +152,9 @@ 		fromIntegral $ r `shiftR` 23, 		fromIntegral $ g `shiftR` 23, 		fromIntegral $ b `shiftR` 23 )-	RgbDouble_ r g b ->-		let [r', g', b'] = cDoubleToWord8 <$> [r, g, b] in (r', g', b')+	RgbDouble_ r g b -> case cDoubleToWord8 <$> [r, g, b] of+		[r', g', b'] -> (r', g', b')+		_ -> error "never occur"  {-# COMPLETE RgbWord16 #-} @@ -616,8 +617,9 @@ unPremultipliedDouble :: (Eq d, Fractional d) => (d, d, d, d) -> [d] unPremultipliedDouble (r, g, b, a) = [r ./. a, g ./. a, b ./. a, a] -div' :: Integral n => n -> n -> n+div' :: (Integral n, Bounded n) => n -> n -> n 0 `div'` 0 = 0+_ `div'` 0 = maxBound a `div'` b = a `div` b  (./.) :: (Eq a, Fractional a) => a -> a -> a

@@ -1,11 +1,11 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.34.4.+-- This file has been generated from package.yaml by hpack version 0.35.2. -- -- see: https://github.com/sol/hpack  name:           union-color-version:        0.1.2.0+version:        0.1.2.1 synopsis:       Unify verious color formats description:    Please see the README on GitHub at <https://github.com/YoshikuniJujo/union-color#readme> category:       data, graphics