rulePartP = (,) <$> (rulesP <* endOfLine <* endOfLine) <*> partsP
rulesP = M.fromList <$> ruleP `sepBy` endOfLine
-ruleP = (,) <$> (nameP <* "{") <*> (ruleBodyP <* "}")
+ruleP = (,) <$> nameP <* "{" <*> ruleBodyP <* "}"
nameP = unpack <$> AT.takeWhile (inClass "a-z") -- many1 letter
ruleBodyP = ruleElementP `sepBy` ","
ruleElementP = withTestP <|> withoutTestP
-withTestP = WithTest <$> (testP <* ":") <*> destinationP
+withTestP = WithTest <$> testP <* ":" <*> destinationP
withoutTestP = WithoutTest <$> destinationP
testP = Test <$> registerP <*> comparatorP <*> decimal