pIntervalInteger :: CharParser () Interval
pIntervalInteger = (Interval . read) <$> many1 digit
pIntervalInteger :: CharParser () Interval
pIntervalInteger = (Interval . read) <$> many1 digit
pIntervalInteger = (Interval . read) <$> many1 digit