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