John Ericson · Lennart Kolmodin · e26b5002
Show whitespace changes
Inline Side-by-side

Showing with 8 additions and 0 deletions

src/Data/Binary/Class.hs src/Data/Binary/Class.hs +8 -0

No files found.
--- 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"