parseTag :: Bool -> ReadP String
parseTag True  = munch1 (\c -> not $ (isSpace c || c == ','))
parseTag :: Bool -> ReadP String
parseTag True  = munch1 (\c -> not $ (isSpace c || c == ','))
parseTag True  = munch1 (\c -> not $ (isSpace c || c == ','))