@@ -77,6 +77,7 @@ $(Serialize.deriveSerialize ''LiftedInteger)
7777
7878#if __GLASGOW_HASKELL__ >= 900
7979
80+{-# INLINE liftInteger #-}
8081liftInteger :: Integer -> LiftedInteger
8182liftInteger (IS x) = LIS (I# x)
8283liftInteger (IP x) =
@@ -84,6 +85,7 @@ liftInteger (IP x) =
8485liftInteger (IN x) =
8586 LIN (Array (MutableByteArray (unsafeCoerce# x)) 0 (I# (sizeofByteArray# x)))
8687
88+{-# INLINE unliftInteger #-}
8789unliftInteger :: LiftedInteger -> Integer
8890unliftInteger (LIS (I# x)) = IS x
8991unliftInteger (LIP (Array (MutableByteArray x) _ _)) = IP (unsafeCoerce# x)
@@ -91,6 +93,7 @@ unliftInteger (LIN (Array (MutableByteArray x) _ _)) = IN (unsafeCoerce# x)
9193
9294#else
9395
96+{-# INLINE liftInteger #-}
9497liftInteger :: Integer -> LiftedInteger
9598liftInteger (S# x) = LIS (I# x)
9699liftInteger (Jp# (BN# x)) =
@@ -98,6 +101,7 @@ liftInteger (Jp# (BN# x)) =
98101liftInteger (Jn# (BN# x)) =
99102 LIN (Array (MutableByteArray (unsafeCoerce# x)) 0 (I# (sizeofByteArray# x)))
100103
104+{-# INLINE unliftInteger #-}
101105unliftInteger :: LiftedInteger -> Integer
102106unliftInteger (LIS (I# x)) = S# x
103107unliftInteger (LIP (Array (MutableByteArray x) _ _)) =