[commit: packages/binary] master: Add support for Int16#, Word16# (aa9fd16)
git at git.haskell.org
git at git.haskell.org
Sat Nov 17 13:17:49 UTC 2018
Repository : ssh://git@git.haskell.org/binary
On branch : master
Link : http://git.haskell.org/packages/binary.git/commitdiff/aa9fd16beef8c0025e2964d26d4b54bf04e071c9
>---------------------------------------------------------------
commit aa9fd16beef8c0025e2964d26d4b54bf04e071c9
Author: Ben Gamari <ben at smart-cactus.org>
Date: Mon Nov 5 12:44:06 2018 -0500
Add support for Int16#, Word16#
>---------------------------------------------------------------
aa9fd16beef8c0025e2964d26d4b54bf04e071c9
src/Data/Binary/Class.hs | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/src/Data/Binary/Class.hs b/src/Data/Binary/Class.hs
index b44001d..690f3da 100644
--- a/src/Data/Binary/Class.hs
+++ b/src/Data/Binary/Class.hs
@@ -885,6 +885,8 @@ instance Binary RuntimeRep where
#if __GLASGOW_HASKELL__ >= 807
put Int8Rep = putWord8 12
put Word8Rep = putWord8 13
+ put Int16Rep = putWord8 14
+ put Word16Rep = putWord8 15
#endif
get = do
@@ -905,6 +907,8 @@ instance Binary RuntimeRep where
#if __GLASGOW_HASKELL__ >= 807
12 -> pure Int8Rep
13 -> pure Word8Rep
+ 14 -> pure Int16Rep
+ 15 -> pure Word16Rep
#endif
_ -> fail "GHCi.TH.Binary.putRuntimeRep: invalid tag"
More information about the ghc-commits
mailing list