@@ -0,0 +1,17 @@
1+diff -ru orig/src/Data/Bytes/VarInt.hs new/src/Data/Bytes/VarInt.hs
2+--- orig/src/Data/Bytes/VarInt.hs 2013-09-02 11:35:18.532306195 +0300
3++++ new/src/Data/Bytes/VarInt.hs 2013-09-02 11:35:18.000000000 +0300
6+ -- | Integer/Word types serialized to base-128 variable-width ints.
8+--- >>> runPutL $ serialize (97 :: Word64)
9++-- >>> import Data.Monoid (mconcat)
10++-- >>> import Data.ByteString.Lazy (toChunks)
11++-- >>> mconcat $ toChunks $ runPutL $ serialize (97 :: Word64)
12+ -- "\NUL\NUL\NUL\NUL\NUL\NUL\NULa"
13+--- >>> runPutL $ serialize (97 :: VarInt Word64)
14++-- >>> mconcat $ toChunks $ runPutL $ serialize (97 :: VarInt Word64)
16+ newtype VarInt n = VarInt { unVarInt :: n }
17+ deriving (Eq, Ord, Show, Enum, Num, Integral, Bounded, Real, Bits)