alueT :: Parser PerhapsText
valueT = (Right <$> encoded) <|> (Left  <$> value)
  where encoded = T.concat <$> quoted (many (optional fws *> encoded_word))

valueT :: Parser PerhapsText
valueT = (Right <$> encoded) <|> (Left  <$> value)
  where encoded = T.concat <$> quoted (many (optional fws *> encoded_word))
valueT = (Right <$> encoded) <|> (Left  <$> value)
  where encoded = T.concat <$> quoted (many (optional fws *> encoded_word))