Commit 3e0134df authored by John Ericson's avatar John Ericson

Handle {Int,Word}32Rep

parent fcd9d3cb
......@@ -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"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment