repa-convert 4.2.2.1 → 4.2.3.1
raw patch · 9 files changed
+18/−18 lines, 9 filesdep ~basedep ~repa-scalar
Dependency ranges changed: base, repa-scalar
Files
- Data/Repa/Convert/Format/App.hs +1/−1
- Data/Repa/Convert/Format/Binary.hs +3/−3
- Data/Repa/Convert/Format/Date32.hs +2/−2
- Data/Repa/Convert/Format/Fields.hs +1/−1
- Data/Repa/Convert/Format/Maybe.hs +1/−1
- Data/Repa/Convert/Format/Sep.hs +1/−1
- Data/Repa/Convert/Format/String.hs +4/−4
- Data/Repa/Convert/Format/Unit.hs +2/−2
- repa-convert.cabal +3/−3
Data/Repa/Convert/Format/App.hs view
@@ -87,6 +87,6 @@ = unpacker f1 start end stop fail $ \start_x1 x1 -> unpacker (App fs) start_x1 end stop fail $ \start_xs xs -> eat start_xs (x1 :*: xs) - {-# INLINE unpack #-}+ {-# INLINE unpacker #-}
Data/Repa/Convert/Format/Binary.hs view
@@ -45,14 +45,14 @@ = do S.poke (Ptr dst) (fromIntegral x :: Word8) let !(Ptr dst') = S.plusPtr (Ptr dst) 1 k dst'- {-# INLINE pack #-}+ {-# INLINE packer #-} instance Unpackable Word8be where unpacker _ start _end _stop _fail eat = do x <- S.peek (pw8 start) eat (plusAddr# start 1#) (fromIntegral x)- {-# INLINE unpack #-}+ {-# INLINE unpacker #-} w8 :: Integral a => a -> Word8@@ -201,7 +201,7 @@ .|. (w32 x1 `shiftL` 16) .|. (w32 x2 `shiftL` 8) .|. (w32 x3)))- {-# INLINE unpack #-}+ {-# INLINE unpacker #-} w32 :: Integral a => a -> Word32
Data/Repa/Convert/Format/Date32.hs view
@@ -60,7 +60,7 @@ case r of Just (d, I# o) -> eat (plusAddr# start o) d Nothing -> fail- {-# INLINE unpack #-}+ {-# INLINE unpacker #-} ---------------------------------------------------------------------------------------- DDsMMsYYYY@@ -107,7 +107,7 @@ case r of Just (d, I# o) -> eat (plusAddr# start o) d Nothing -> fail- {-# INLINE unpack #-}+ {-# INLINE unpacker #-} ---------------------------------------------------------------------------------------------------
Data/Repa/Convert/Format/Fields.hs view
@@ -29,7 +29,7 @@ unpacker _f start _end _stop _fail eat = eat start ()- {-# INLINE unpack #-}+ {-# INLINE unpacker #-} ---------------------------------------------------------------------------------------------------
Data/Repa/Convert/Format/Maybe.hs view
@@ -135,7 +135,7 @@ = case mv of Nothing -> packer VarBytes str start k Just v -> packer f v start k- {-# NOINLINE pack #-}+ {-# NOINLINE packer #-} -- We're NOINLINEing this so we don't duplicate the code for the continuation. -- It would be better to use an Either format and use that to express the branch.
Data/Repa/Convert/Format/Sep.hs view
@@ -156,7 +156,7 @@ packer (SepCons _ f1 _ ) (x1 :*: _) start k = packer f1 x1 start k- {-# INLINE pack #-}+ {-# INLINE packer #-} instance ( Unpackable f1
Data/Repa/Convert/Format/String.hs view
@@ -117,7 +117,7 @@ unpacker VarChars start end stop _fail eat = do (Ptr ptr, str) <- unpackCharList (pw8 start) (pw8 end) stop eat ptr str- {-# INLINE unpack #-}+ {-# INLINE unpacker #-} -- | Unpack a ascii text from the given buffer.@@ -169,7 +169,7 @@ -- ISSUE #43: Avoid intermediate lists when packing Ints and Strings. packer VarCharString xx start k = packer VarChars (show xx) start k- {-# INLINE pack #-}+ {-# INLINE packer #-} instance Unpackable VarCharString where@@ -270,7 +270,7 @@ $ zip [0 .. len - 1] str let !(Ptr dst') = S.plusPtr (Ptr dst) len k dst'- {-# NOINLINE pack #-}+ {-# NOINLINE packer #-} instance Unpackable ExactChars where@@ -289,7 +289,7 @@ if (xs == str) then eat (plusAddr# start len') () else fails- {-# NOINLINE unpack #-}+ {-# NOINLINE unpacker #-} ---------------------------------------------------------------------------------------------------
Data/Repa/Convert/Format/Unit.hs view
@@ -30,7 +30,7 @@ instance Packable UnitAsc where packer (UnitAsc s) () start k = packer (FixChars (length s)) s start k- {-# INLINE pack #-}+ {-# INLINE packer #-} instance Unpackable UnitAsc where@@ -39,7 +39,7 @@ if str == str' then eat ptr () else fail- {-# NOINLINE unpack #-}+ {-# NOINLINE unpacker #-}
repa-convert.cabal view
@@ -1,5 +1,5 @@ Name: repa-convert-Version: 4.2.2.1+Version: 4.2.3.1 License: BSD3 License-file: LICENSE Author: The Repa Development Team@@ -19,13 +19,13 @@ Library build-Depends: - base == 4.8.*,+ base == 4.9.*, primitive == 0.6.*, vector == 0.10.*, bytestring == 0.10.*, text == 1.2.*, double-conversion == 2.0.*,- repa-scalar == 4.2.2.*+ repa-scalar == 4.2.3.* exposed-modules: Data.Repa.Convert.Format