Fix stupid thinko
commit98cacc9e827d2b31b55b6f064f5203560b053a82
authorBryan O'Sullivan <bos@serpentine.com>
dateSun 27 Apr 2014, 21:58 (12 years ago)
parent4784419
Data/Text/Internal.hs+1−1
@@ -76,7 +76,7 @@ empty = Text A.empty 0 0
7676-- memory if its length has dwindled to zero.
7777text :: A.Array -> Int -> Int -> Text
7878text arr off len | len == 0 = empty
79− | otherwise = text arr off len
79+ | otherwise = text_ arr off len
8080{-# INLINE text #-}
8181
8282textP :: A.Array -> Int -> Int -> Text