usb 1.1.0.1 → 1.1.0.2

raw patch · 2 files changed

+7/−7 lines, 2 filesdep ~containersPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: containers

API changes (from Hackage documentation)

Files

• Utils.hs +5/−5
• usb.cabal +2/−2

@@ -23,7 +23,7 @@ import Foreign.Storable      ( Storable,  ) import Foreign.Marshal.Array ( peekArray ) import Data.Bool             ( Bool, otherwise )-import Data.Ord              ( Ord, (<) )+import Data.Ord              ( Ord, (>) ) import Data.Bits             ( Bits, shiftL, shiftR, bitSize, (.&.) ) import Data.Int              ( Int ) import System.IO             ( IO )@@ -70,10 +70,10 @@ <http://en.wikipedia.org/wiki/Binary-coded_decimal> -} decodeBCD ∷ Bits α ⇒ Int → α → [α]-decodeBCD bitsInDigit abcd = go shftR []+decodeBCD bitsInDigit abcd = go 0     where       shftR = bitSize abcd - bitsInDigit -      go shftL ds | shftL < 0 = ds-                  | otherwise = let !d = (abcd `shiftL` shftL) `shiftR` shftR-                                in go (shftL - bitsInDigit) (d : ds)+      go !shftL | shftL > shftR = []+                | otherwise     = let !d = (abcd `shiftL` shftL) `shiftR` shftR+                                  in d : go (shftL + bitsInDigit)

@@ -1,5 +1,5 @@ name:          usb-version:       1.1.0.1+version:       1.1.0.2 cabal-version: >=1.6 build-type:    Custom license:       BSD3@@ -98,4 +98,4 @@   if impl(ghc>7) && !os(windows)     cpp-options: -DHAS_EVENT_MANAGER     other-modules: Poll, Event, SystemEventManager, Timeval-    build-depends: containers >= 0.1 && < 0.5+    build-depends: containers >= 0.1 && < 0.6