Parsing

Main.hs

import           Data.Void
import           Text.Megaparsec
import           Text.Megaparsec.Char

type Parser = Parsec Void String

main :: IO ()
main = case runParser p "bruh" "\"123\",  \"321\"  , ," of
  Left err  -> print err
  Right res -> print res

p :: Parser [String]
p = do
  res <- (spaced $ inQuotes anyStringUntilQuote)
    `sepBy`
    char ','
  eof
  pure res
  where
    spaced = between space space
    inQuotes = between (char '\"') (char '\"')
    anyStringUntilQuote = many $ anySingleBut '\"'
    
{- examples:
> parseTest p "\"1\"  ,   \"2,2\"  ,  \"\""
["1","2,2",""]

> parseTest p "\"1\"     \"2,2\"  ,  \"\""
1:9:
  |
1 | "1"     "2,2"  ,  ""
  |         ^
unexpected '"'
expecting ',', end of input, or white space
-}