...
 
Commits (2)
......@@ -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"
......