haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-01-13 07:48:31 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add patch for analytics/bytes#17

Browse Source
This commit is contained in:
Michael Snoyman 2014-02-22 21:21:48 +02:00
parent c761b6de99
commit f6bcf23c07
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
patching/patches/bytes-0.14.patch Normal file
View File

@ -0,0 +1,25 @@
diff -ru orig/src/Data/Bytes/Serial.hs new/src/Data/Bytes/Serial.hs
--- orig/src/Data/Bytes/Serial.hs 2014-02-22 21:21:31.076773095 +0200
+++ new/src/Data/Bytes/Serial.hs 2014-02-22 21:21:29.000000000 +0200
@@ -58,7 +58,9 @@
import Data.Int
import Data.Bits
import Data.Monoid as Monoid
+#if MIN_VERSION_base(4, 6, 0)
import Data.Ord (Down(..))
+#endif
import Data.Functor.Identity as Functor
import Data.Functor.Constant as Functor
import Data.Functor.Product as Functor
@@ -475,9 +477,11 @@
serialize = serialize . (fromIntegral::Int -> Int8) . fromEnum
deserialize = (toEnum . (fromIntegral::Int8 -> Int)) `liftM` deserialize
+#if MIN_VERSION_base(4, 6, 0)
instance Serial a => Serial (Down a) where
serialize (Down a) = serialize a
deserialize = Down `liftM` deserialize
+#endif
instance Serial Version where
serialize (Version vb ts) = serialize (fmap VarInt vb, ts)