binary 0.7.3.0 → 0.7.4.0

raw patch · 2 files changed

+7/−3 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• binary.cabal +1/−1
• src/Data/Binary/Class.hs +6/−2

@@ -1,5 +1,5 @@ name:            binary-version:         0.7.3.0+version:         0.7.4.0 license:         BSD3 license-file:    LICENSE author:          Lennart Kolmodin <kolmodin@gmail.com>

@@ -47,7 +47,7 @@ import Data.ByteString.Lazy (ByteString) import qualified Data.ByteString.Lazy as L -import Data.Char    (chr,ord)+import Data.Char    (ord) import Data.List    (unfoldr)  -- And needed for the instances:@@ -382,7 +382,11 @@                                 z <- liftM (xor 0x80) getByte                                 return (z .|. shiftL6 (y .|. shiftL6                                         (x .|. shiftL6 (xor 0xf0 w))))-        return $! chr r+        getChr r+      where+        getChr w+          | w <= 0x10ffff = return $! toEnum $ fromEnum w+          | otherwise = fail "Not a valid Unicode code point!"  ------------------------------------------------------------------------ -- Instances for the first few tuples