instructionsP = instructionP `sepBy` ","
instructionP = removeP <|> insertP
-removeP = Remove <$> (many1 letter) <* "-"
-insertP = Insert <$> ((many1 letter) <* "=") <*> decimal
+removeP = Remove <$> many1 letter <* "-"
+insertP = Insert <$> many1 letter <* "=" <*> decimal
successfulParse :: Text -> [Instruction]
successfulParse input =