parseCompactValue T_STRING = do
  len :: Word32 <- parseVarint id
  TString . LBS.fromStrict <$> P.take (fromIntegral len)
parseCompactValue T_STRING = do
  len :: Word32 <- parseVarint id
  TString . LBS.fromStrict <$> P.take (fromIntegral len)
parseCompactValue T_STRING = do
  len :: Word32 <- parseVarint id
  TString . LBS.fromStrict <$> P.take (fromIntegral len)