domainOrRange :: CharParser st DomainOrRange
domainOrRange = choice
  $ map (\ f -> pkeyword (showDomainOrRange f) >> return f)
  [ADomain, ARange]
domainOrRange :: CharParser st DomainOrRange
domainOrRange = choice
  $ map (\ f -> pkeyword (showDomainOrRange f) >> return f)
  [ADomain, ARange]
domainOrRange = choice
  $ map (\ f -> pkeyword (showDomainOrRange f) >> return f)
  [ADomain, ARange]