From 4213b9ed9018b9160f06c8b0e473cb2df0b97e01 Mon Sep 17 00:00:00 2001
From: Bryan O'Sullivan <bos@serpentine.com>
Date: Tue, 1 Feb 2011 08:38:23 -0800
Subject: [PATCH] Make some of the low-level internals visible.

Necessary for people writing e.g. hash functions.
---
 Data/Text/Internal.hs      | 9 +++++++--
 Data/Text/Lazy/Internal.hs | 8 ++++++--
 text.cabal                 | 8 ++++----
 3 files changed, 17 insertions(+), 8 deletions(-)

diff --git a/Data/Text/Internal.hs b/Data/Text/Internal.hs
index 5da8b0c1..474b0d2b 100644
--- a/Data/Text/Internal.hs
+++ b/Data/Text/Internal.hs
@@ -12,8 +12,13 @@
 -- Stability   : experimental
 -- Portability : GHC
 --
--- Semi-public internals.  Most users should not need to use this
--- module.
+-- A module containing private 'Text' internals. This exposes the
+-- 'Text' representation and low level construction functions.
+-- Modules which extend the 'Text' system may need to use this module.
+--
+-- You should not use this module unless you are determined to monkey
+-- with the internals, as the functions here do just about nothing to
+-- preserve data invariants.  You have been warned!
 
 module Data.Text.Internal
     (
diff --git a/Data/Text/Lazy/Internal.hs b/Data/Text/Lazy/Internal.hs
index 47407346..ae66530e 100644
--- a/Data/Text/Lazy/Internal.hs
+++ b/Data/Text/Lazy/Internal.hs
@@ -9,10 +9,14 @@
 -- Stability   : experimental
 -- Portability : GHC
 -- 
--- A module containing semi-public 'Text' internals. This exposes the
+-- A module containing private 'Text' internals. This exposes the
 -- 'Text' representation and low level construction functions.
 -- Modules which extend the 'Text' system may need to use this module.
--- Regular users should not.
+--
+-- You should not use this module unless you are determined to monkey
+-- with the internals, as the functions here do just about nothing to
+-- preserve data invariants.  You have been warned!
+
 module Data.Text.Lazy.Internal
     (
       Text(..)
diff --git a/text.cabal b/text.cabal
index f5c4ae41..a937bcdb 100644
--- a/text.cabal
+++ b/text.cabal
@@ -1,5 +1,5 @@
 name:           text
-version:        0.11.0.2
+version:        0.11.0.3
 homepage:       http://bitbucket.org/bos/text
 bug-reports:    http://bitbucket.org/bos/text/issues
 synopsis:       An efficient packed Unicode text type.
@@ -79,18 +79,20 @@ flag developer
 library
   exposed-modules:
     Data.Text
+    Data.Text.Array
     Data.Text.Encoding
     Data.Text.Encoding.Error
     Data.Text.Foreign
     Data.Text.IO
+    Data.Text.Internal
     Data.Text.Lazy
     Data.Text.Lazy.Builder
     Data.Text.Lazy.Encoding
     Data.Text.Lazy.IO
+    Data.Text.Lazy.Internal
     Data.Text.Lazy.Read
     Data.Text.Read
   other-modules:
-    Data.Text.Array
     Data.Text.Encoding.Fusion
     Data.Text.Encoding.Fusion.Common
     Data.Text.Encoding.Utf16
@@ -102,10 +104,8 @@ library
     Data.Text.Fusion.Internal
     Data.Text.Fusion.Size
     Data.Text.IO.Internal
-    Data.Text.Internal
     Data.Text.Lazy.Encoding.Fusion
     Data.Text.Lazy.Fusion
-    Data.Text.Lazy.Internal
     Data.Text.Lazy.Search
     Data.Text.Search
     Data.Text.Unsafe
-- 
GitLab