git.iko.soy/stackage
on 869c80a help sign in
stackage/patching/patches/bytes-0.14.0.1.patch
25 lines 907 B history raw
1diff -ru orig/src/Data/Bytes/Serial.hs new/src/Data/Bytes/Serial.hs
2--- orig/src/Data/Bytes/Serial.hs 2014-06-08 07:58:00.820951939 +0300
3+++ new/src/Data/Bytes/Serial.hs 2014-06-08 07:58:00.000000000 +0300
4@@ -58,7 +58,9 @@
5 import Data.Int
6 import Data.Bits
7 import Data.Monoid as Monoid
8+#if MIN_VERSION_base(4, 6, 0)
9 import Data.Ord (Down(..))
10+#endif
11 import Data.Functor.Identity as Functor
12 import Data.Functor.Constant as Functor
13 import Data.Functor.Product as Functor
14@@ -475,9 +477,11 @@
15 serialize = serialize . (fromIntegral::Int -> Int8) . fromEnum
16 deserialize = (toEnum . (fromIntegral::Int8 -> Int)) `liftM` deserialize
18+#if MIN_VERSION_base(4, 6, 0)
19 instance Serial a => Serial (Down a) where
20 serialize (Down a) = serialize a
21 deserialize = Down `liftM` deserialize
22+#endif
24 instance Serial Version where
25 serialize (Version vb ts) = serialize (fmap VarInt vb, ts)