diff --git a/src/Data/Binary/Class.hs b/src/Data/Binary/Class.hs index 2eed93e065a10208a95a47cb96fe74f72c07a850..b44001ddfecf9ef63f1a4477aea544b1a8bee91f 100644 --- a/src/Data/Binary/Class.hs +++ b/src/Data/Binary/Class.hs @@ -882,6 +882,10 @@ instance Binary RuntimeRep where put AddrRep = putWord8 9 put FloatRep = putWord8 10 put DoubleRep = putWord8 11 +#if __GLASGOW_HASKELL__ >= 807 + put Int8Rep = putWord8 12 + put Word8Rep = putWord8 13 +#endif get = do tag <- getWord8 @@ -898,6 +902,10 @@ instance Binary RuntimeRep where 9 -> pure AddrRep 10 -> pure FloatRep 11 -> pure DoubleRep +#if __GLASGOW_HASKELL__ >= 807 + 12 -> pure Int8Rep + 13 -> pure Word8Rep +#endif _ -> fail "GHCi.TH.Binary.putRuntimeRep: invalid tag" -- | @since 0.8.5.0. See #typeable-instances#