[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