nextRegion :: Region -> R.YiString -> Region
nextRegion r l = mkRegion' (regionDirection r) (regionEnd r) (regionEnd r + len)
    where len = fromIntegral $ R.length l
nextRegion :: Region -> R.YiString -> Region
nextRegion r l = mkRegion' (regionDirection r) (regionEnd r) (regionEnd r + len)
    where len = fromIntegral $ R.length l
nextRegion r l = mkRegion' (regionDirection r) (regionEnd r) (regionEnd r + len)
    where len = fromIntegral $ R.length l