quoted :: Parser Text
quoted = do
  _ <- char '"'
  liftM pack $ manyTill anyToken (char '"')
quoted :: Parser Text
quoted = do
  _ <- char '"'
  liftM pack $ manyTill anyToken (char '"')
quoted = do
  _ <- char '"'
  liftM pack $ manyTill anyToken (char '"')