Commits

Bryan O'Sullivan committed b352016

Fix stupid thinko

Comments (0)

Files changed (1)

Data/Text/Internal.hs

 -- memory if its length has dwindled to zero.
 text :: A.Array -> Int -> Int -> Text
 text arr off len | len == 0  = empty
-                  | otherwise = text arr off len
+                 | otherwise = text_ arr off len
 {-# INLINE text #-}
 
 textP :: A.Array -> Int -> Int -> Text