View difference between Paste ID: RNnvPPS2 and 9pS7RhRm

--- data ::= usefulData data | invalidData data | eol
+-- data ::= usefulData data | invalidData data
 -- usefulData ::= keyAndId value
 -- keyAndId ::= firstPart id lastPart eol
 -- firstPart ::= "any_"
 -- id ::= digits
 -- lastPart ::= "_shape"
--- value ::= string eol
+-- value ::= symbols eol
--- invalidData ::= string ivalidData | digit invalidData | eol
+-- invalidData ::= symbols eol
 -- eol ::= end of line
 
 
 test :: String -> Either ParseError [(String,String)]
 test str = parse parser "" str
 
 parser = do result <- Text.Parsec.Prim.try (many1 parKV) <|> Text.Parsec.Prim.try (many1 orPar)
             return result
 
 orPar = Text.Parsec.Prim.try parKV <|> Text.Parsec.Prim.try remaining
 
 remaining = do skipMany (noneOf "\n")
                eol
                return [] >> orPar
 
 parKV = do
           id <- tagLine
           name <- nameLine
           return (id,name)
 
 tagLine :: GenParser Char st String
 tagLine = do result <- (between firstPart lastPart id)
              eol
              return result
              where
                 firstPart = string "any_"
                 id = many digit
                 lastPart = string "_shape"
 
 nameLine :: GenParser Char st String
 nameLine = do name <- (many $ noneOf "\n")
               eol
               return name
 
 eol :: GenParser Char st Char
 eol = char '\n'