Commits

Bryan O'Sullivan committed 2f4bcde

Twiddle docs.

Comments (0)

Files changed (2)

Data/Text/Internal.hs

     {-# UNPACK #-} !Int              -- length
     deriving (Typeable)
 
+-- | Smart constructor.
 text :: A.Array Word16 -> Int -> Int -> Text
 text arr off len =
     assert (len >= 0) .
 empty = Text A.empty 0 0
 {-# INLINE [1] empty #-}
 
+-- | A useful 'show'-like function for debugging purposes.
 showText :: Text -> String
 showText (Text arr off len) =
     "Text " ++ (show . take (off+len) . A.toList) arr ++ ' ' :

Data/Text/Unsafe.hs

 -- |
 -- Module      : Data.Text.Unsafe
+-- Copyright   : (c) Bryan O'Sullivan 2009
 -- License     : BSD-style
--- Copyright   : (c) Bryan O'Sullivan 2009
 -- Maintainer  : bos@serpentine.com
 -- Stability   : experimental
 -- Portability : portable
--- 
+--
 -- A module containing unsafe 'Text' operations, for very very careful
 -- use in heavily tested code.
 module Data.Text.Unsafe