diff --git a/src/Data/Binary/Class.hs b/src/Data/Binary/Class.hs
index a3d3878ce065c4a72282838708c1877640bc5205..8c169df4a196205258c804bb67b05b0b256d58a7 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
-