From 3e0134df1cd432f2078661e829113273401335dc Mon Sep 17 00:00:00 2001
From: John Ericson <git@JohnEricson.me>
Date: Mon, 10 Jun 2019 23:24:22 -0400
Subject: [PATCH] Handle {Int,Word}32Rep
---
src/Data/Binary/Class.hs | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/src/Data/Binary/Class.hs b/src/Data/Binary/Class.hs
index 064b744..a2053b0 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"
--
GitLab