mirror of
https://github.com/commercialhaskell/stackage.git
synced 2026-01-12 15:28:29 +01:00
26 lines
907 B
Diff
26 lines
907 B
Diff
diff -ru orig/src/Data/Bytes/Serial.hs new/src/Data/Bytes/Serial.hs
|
|
--- orig/src/Data/Bytes/Serial.hs 2014-06-08 07:58:00.820951939 +0300
|
|
+++ new/src/Data/Bytes/Serial.hs 2014-06-08 07:58:00.000000000 +0300
|
|
@@ -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)
|