@@ -33,11 +33,11 @@ import Data.Typeable (Typeable)
33import Data.Word (Word16)
33import Data.Word (Word16)
35-- | A space efficient, packed, unboxed Unicode text type.
35-- | A space efficient, packed, unboxed Unicode text type.
36−data Text = Text {
36+data Text = Text
37− textArray :: {-# UNPACK #-} !(A.Array Word16) -- payload
37+ {-# UNPACK #-} !(A.Array Word16) -- payload
38− , textOffset :: {-# UNPACK #-} !Int -- offset
38+ {-# UNPACK #-} !Int -- offset
39− , textLength :: {-# UNPACK #-} !Int -- length
39+ {-# UNPACK #-} !Int -- length
40− } deriving (Typeable)
40+ deriving (Typeable)
42text :: A.Array Word16 -> Int -> Int -> Text
42text :: A.Array Word16 -> Int -> Int -> Text
43text arr off len =
43text arr off len =