Skip to content
Snippets Groups Projects
Commit 3e0134df authored by John Ericson's avatar John Ericson
Browse files

Handle {Int,Word}32Rep

parent fcd9d3cb
No related branches found
No related tags found
No related merge requests found
...@@ -893,6 +893,10 @@ instance Binary RuntimeRep where ...@@ -893,6 +893,10 @@ instance Binary RuntimeRep where
put Word8Rep = putWord8 13 put Word8Rep = putWord8 13
put Int16Rep = putWord8 14 put Int16Rep = putWord8 14
put Word16Rep = putWord8 15 put Word16Rep = putWord8 15
#if __GLASGOW_HASKELL__ >= 809
put Int32Rep = putWord8 16
put Word32Rep = putWord8 17
#endif
#endif #endif
get = do get = do
...@@ -915,6 +919,10 @@ instance Binary RuntimeRep where ...@@ -915,6 +919,10 @@ instance Binary RuntimeRep where
13 -> pure Word8Rep 13 -> pure Word8Rep
14 -> pure Int16Rep 14 -> pure Int16Rep
15 -> pure Word16Rep 15 -> pure Word16Rep
#if __GLASGOW_HASKELL__ >= 809
16 -> pure Int32Rep
17 -> pure Word32Rep
#endif
#endif #endif
_ -> fail "GHCi.TH.Binary.putRuntimeRep: invalid tag" _ -> fail "GHCi.TH.Binary.putRuntimeRep: invalid tag"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment