parseRules x = parseRules ("Haxe","normal") <|> fail ("Unknown context" ++ show x)
parseRules x = parseRules ("Haxe","normal") <|> fail ("Unknown context" ++ show x)
parseRules x = parseRules ("Haxe","normal") <|> fail ("Unknown context" ++ show x)