diff --git a/src/Data/Binary/Class.hs b/src/Data/Binary/Class.hs index 064b744af65b3a346ca81a1c04f01d8fc90fdc45..a2053b043e8ba86c18e7ff2c17bb64e2b5c58550 100644 --- a/src/Data/Binary/Class.hs +++ b/src/Data/Binary/Class.hs @@ -893,6 +893,10 @@ instance Binary RuntimeRep where put Word8Rep = putWord8 13 put Int16Rep = putWord8 14 put Word16Rep = putWord8 15 +#if __GLASGOW_HASKELL__ >= 809 + put Int32Rep = putWord8 16 + put Word32Rep = putWord8 17 +#endif #endif get = do @@ -915,6 +919,10 @@ instance Binary RuntimeRep where 13 -> pure Word8Rep 14 -> pure Int16Rep 15 -> pure Word16Rep +#if __GLASGOW_HASKELL__ >= 809 + 16 -> pure Int32Rep + 17 -> pure Word32Rep +#endif #endif _ -> fail "GHCi.TH.Binary.putRuntimeRep: invalid tag"