Add support for Int8Rep/Word8Rep added in GHC 8.7
authorBen Gamari <ben@smart-cactus.org>
Thu, 4 Oct 2018 20:28:41 +0000 (16:28 -0400)
committerBen Gamari <ben@smart-cactus.org>
Thu, 4 Oct 2018 20:28:41 +0000 (16:28 -0400)
src/Data/Binary/Class.hs

index 2eed93e..b44001d 100644 (file)
@@ -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#