From 31a3dd9c51616dead430d8f97aad774444d516d4 Mon Sep 17 00:00:00 2001
From: Daniel Rogozin <daniel.rogozin@serokell.io>
Date: Fri, 29 May 2020 16:41:27 +0300
Subject: [PATCH] add TypeLitChar
---
src/Data/Binary/Class.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/Data/Binary/Class.hs b/src/Data/Binary/Class.hs
index a3d3878..8c169df 100644
--- a/src/Data/Binary/Class.hs
+++ b/src/Data/Binary/Class.hs
@@ -960,11 +960,13 @@ instance Binary KindRep where
instance Binary TypeLitSort where
put TypeLitSymbol = putWord8 0
put TypeLitNat = putWord8 1
+ put TypeLitChar = putWord8 2
get = do
tag <- getWord8
case tag of
0 -> pure TypeLitSymbol
1 -> pure TypeLitNat
+ 2 -> pure TypeLitChar
_ -> fail "GHCi.TH.Binary.putTypeLitSort: invalid tag"
putTypeRep :: TypeRep a -> Put
@@ -1044,4 +1046,3 @@ instance Binary SomeTypeRep where
put (SomeTypeRep rep) = putTypeRep rep
get = getSomeTypeRep
#endif
-
--
GitLab