Error when calling Text.take with a negative 'n' value.

[rdwebster]

For example:

main :: IO ()
main = print $ T.length $ T.filter isLetter $ T.take (-3) "Hello! How are you doing today?"

throws the following error:

Data.Text.Array.new: size overflow
CallStack (from HasCallStack):
  error, called at libraries/text/Data/Text/Array.hs:132:20 in text-1.2.3.0:Data.Text.Array

The problem only seems to happen with O1 or higher, so it is likely related to the fusion case.

Also, the problem seems to have be introduced somewhere after text-1.2.2.2.

[hvr]

A suspect could be cfb8278 (which is also suspected to have introduced the #221 and #225 regressions)

[llelf]

A suspect could be cfb8278

indeed

 take n0 (Stream next0 s0 len) =
-     Stream next (n0 :*: s0) (smaller len (fromIntegral (max 0 n0)))
+     Stream next (n0 :*: s0) (smaller len (codePointsSize $ fromIntegral n0))

codePointsSize :: Int -> Size
codePointsSize n = Between n (2*n)

[hvr]

@bgamari does #227 (comment) ring any bells?