arseRangeSpec :: Parser [Int]
parseRangeSpec = try parseRange <|> fmap ((:[]) . subtract 1) parseNumber

parseRangeSpec :: Parser [Int]
parseRangeSpec = try parseRange <|> fmap ((:[]) . subtract 1) parseNumber
parseRangeSpec = try parseRange <|> fmap ((:[]) . subtract 1) parseNumber