nextInterval (Interval r ef d) q = Interval nextReps nextEase nextDays
   where nextReps = if forgot q then 1 else r+1
         nextEase = nextEasiness ef q
         nextDays = if forgot q then 1 else round $ (toRational d) * ef

-- Interval for the first review.
nextInterval (Interval r ef d) q = Interval nextReps nextEase nextDays
   where nextReps = if forgot q then 1 else r+1
         nextEase = nextEasiness ef q
         nextDays = if forgot q then 1 else round $ (toRational d) * ef

-- Interval for the first review.
nextInterval (Interval r ef d) q = Interval nextReps nextEase nextDays
   where nextReps = if forgot q then 1 else r+1
         nextEase = nextEasiness ef q
         nextDays = if forgot q then 1 else round $ (toRational d) * ef

-- Interval for the first review.