From 3fd02fba46037fd8269aaa9e6691a473926f09d7 Mon Sep 17 00:00:00 2001 From: Sylvain Henry Date: Tue, 5 Dec 2023 13:17:14 +0100 Subject: [PATCH] s/less/fewer --- src/Data/Text/Internal/Measure.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Data/Text/Internal/Measure.hs b/src/Data/Text/Internal/Measure.hs index 96ed78d3..2d2d9696 100644 --- a/src/Data/Text/Internal/Measure.hs +++ b/src/Data/Text/Internal/Measure.hs @@ -33,7 +33,7 @@ measure_off ba off len cnt = go 0 0 go !cc !i -- return the number of bytes for the first cnt codepoints, | cc == cnt = fromIntegral i - -- return negated number of codepoints if there are less than cnt + -- return negated number of codepoints if there are fewer than cnt | i >= len = negate (fromIntegral cc) | otherwise = let !(I# o) = fromIntegral (off+i)