escapeChar :: Parser ByteString
escapeChar = fmap fst $ match $ do
  char '\\'
  satisfy $ inClass "abdnrtv\\?'\""
escapeChar :: Parser ByteString
escapeChar = fmap fst $ match $ do
  char '\\'
  satisfy $ inClass "abdnrtv\\?'\""
escapeChar = fmap fst $ match $ do
  char '\\'
  satisfy $ inClass "abdnrtv\\?'\""