qrcode-core 0.9.0 → 0.9.1

raw patch · 9 files changed

+7/−46 lines, 9 filesdep ~primitivePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: primitive

API changes (from Hackage documentation)

Files

• ChangeLog.md +4/−0
• qrcode-core.cabal +3/−3
• src/Codec/QRCode/Data/ByteStreamBuilder.hs +0/−14
• src/Codec/QRCode/Data/ErrorLevel.hs +0/−3
• src/Codec/QRCode/Data/Mask.hs +0/−3
• src/Codec/QRCode/Data/QRImage.hs +0/−3
• src/Codec/QRCode/Data/QRIntermediate/Internal.hs +0/−3
• src/Codec/QRCode/Data/QRSegment/Internal.hs +0/−9
• src/Codec/QRCode/Data/Version.hs +0/−8

@@ -1,5 +1,9 @@ # Changelog for qrcode-core +## 0.9.1 -- 2019-05-23++* Support for primitive 0.7+ ## 0.9.0 -- 2019-02-16  * Changed UTF-8 encoding: encoding a code point outside the unicode range will

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 57abfabcf9a41777287c8a5a350a210d519b6b6a7e87289f3d47dc4a4b05bd9b+-- hash: 3050ad8a7d91248f29f4d59e8ed7b871f0e3e78e7f0603a7d1b6526796add27b  name:           qrcode-core-version:        0.9.0+version:        0.9.1 synopsis:       QR code library in pure Haskell description:    Please see the README on GitHub at <https://github.com/alexkazik/qrcode/qrcode-core#readme> category:       codec@@ -71,7 +71,7 @@     , case-insensitive >=1.2.0.5 && <1.3     , containers >=0.5.6.2 && <0.7     , dlist >=0.7.1.2 && <0.9-    , primitive >=0.6.1.0 && <0.7+    , primitive >=0.6.1.0 && <0.8     , text >=1.2.2.0 && <1.3     , vector >=0.11.0.0 && <0.13   if impl(ghc < 8)

@@ -14,9 +14,7 @@  import           Codec.QRCode.Base -import           Data.Char         (intToDigit) import qualified Data.DList        as DL-import           Data.List         (intercalate)  -- | List of bits. Stored as a pair of Int, how many bits to store and the data, in a DList. --   The DList gives a O(1) append.@@ -86,15 +84,3 @@   : (x .&.   1 /= 0)   : toBitStream xs toBitStream [] = []--instance Show ByteStreamBuilder where-  show b =-    intercalate ", " (map go (DL.toList $ unBitStreamBuilder b)) ++-    " aka " ++-    intercalate "," (map (hexit . fromIntegral) (toList (b <> encodeBits 7 0))) ++-    go2 (Codec.QRCode.Data.ByteStreamBuilder.length b `mod` 8)-    where-      hexit a = [intToDigit (a `shiftR` 4), intToDigit (a .&. 0x0f)]-      go (n, b') = show b' ++ '/' : show n-      go2 0 = ""-      go2 n = '/':show n

@@ -1,5 +1,4 @@ {-# LANGUAGE NoImplicitPrelude #-}-{-# LANGUAGE StandaloneDeriving #-}  module Codec.QRCode.Data.ErrorLevel   ( ErrorLevel(..)@@ -14,5 +13,3 @@   | Q -- ^ Allows error recovery up to 25%   | H -- ^ Allows error recovery up to 30%   deriving (Bounded, Enum, Eq)--deriving instance Show ErrorLevel

@@ -1,5 +1,4 @@ {-# LANGUAGE NoImplicitPrelude #-}-{-# LANGUAGE StandaloneDeriving #-}  module Codec.QRCode.Data.Mask   ( Mask(..)@@ -18,5 +17,3 @@   | Mask6   | Mask7   deriving (Bounded, Enum, Eq)--deriving instance Show Mask

@@ -1,6 +1,5 @@ {-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE StandaloneDeriving #-} {-# LANGUAGE TypeFamilies #-}  module Codec.QRCode.Data.QRImage@@ -65,5 +64,3 @@           (bool wh bl)           (UV.toList $ UV.take qrImageSize $ UV.drop (ofs * qrImageSize) qrImageData)         )--deriving instance Show QRImage

@@ -1,5 +1,4 @@ {-# LANGUAGE NoImplicitPrelude #-}-{-# LANGUAGE StandaloneDeriving #-}  module Codec.QRCode.Data.QRIntermediate.Internal   ( QRIntermediate(..)@@ -20,5 +19,3 @@     , qrIntermediateData_       :: !BSB.ByteStreamBuilder     , qrIntermediateMask_       :: !(Maybe Mask)     }--deriving instance Show QRIntermediate

@@ -9,8 +9,6 @@  import           Codec.QRCode.Base -import           Data.List                           (intercalate)- import qualified Codec.QRCode.Data.ByteStreamBuilder as BSB import           Codec.QRCode.Data.Result import           Codec.QRCode.Data.Version@@ -46,10 +44,3 @@     if l >= (1 `shiftL` n)       then empty       else pure $ BSB.encodeBits n l--instance Show QRSegment where-  show (QRSegment s) =-    "\n" ++ intercalate "\n" (map go [minBound .. maxBound]) ++ "\n"-    where-      go vr =-        show vr ++ ": " ++ show (getResult $ s vr)

@@ -1,5 +1,4 @@ {-# LANGUAGE NoImplicitPrelude #-}-{-# LANGUAGE StandaloneDeriving #-}  module Codec.QRCode.Data.Version   ( Version@@ -29,10 +28,3 @@ versionsInRangeLimitedBy Version1to9   start end = map Version [start `max`  1 .. end `min`  9] versionsInRangeLimitedBy Version10to26 start end = map Version [start `max` 10 .. end `min` 26] versionsInRangeLimitedBy Version27to40 start end = map Version [start `max` 27 .. end `min` 40]--deriving instance Show Version--instance Show VersionRange where-  show Version1to9   = "Version  1- 9"-  show Version10to26 = "Version 10-26"-  show Version27to40 = "Version 27-40"