Commits

Bryan O'Sullivan committed de2dd15

Remove Text accessor functions.

  • Participants
  • Parent commits 220a579

Comments (0)

Files changed (1)

Data/Text/Internal.hs

 import Data.Word (Word16)
 
 -- | A space efficient, packed, unboxed Unicode text type.
-data Text = Text {
-      textArray :: {-# UNPACK #-} !(A.Array Word16) -- payload
-    , textOffset :: {-# UNPACK #-} !Int              -- offset
-    , textLength :: {-# UNPACK #-} !Int              -- length
-    } deriving (Typeable)
+data Text = Text
+    {-# UNPACK #-} !(A.Array Word16) -- payload
+    {-# UNPACK #-} !Int              -- offset
+    {-# UNPACK #-} !Int              -- length
+    deriving (Typeable)
 
 text :: A.Array Word16 -> Int -> Int -> Text
 text arr off len =