From: Max Bolingbroke <batterseapower@hotmail.com>
Date: Mon, 4 Apr 2011 13:45:13 +0000 (+0100)
Subject: Document invariants on mkText{Decoder,Encoder}
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=54a0b4928967a350be687e17ff3576f2af6e21fb;p=ghc-base.git

Document invariants on mkText{Decoder,Encoder}
---

diff --git a/GHC/IO/Encoding/Types.hs b/GHC/IO/Encoding/Types.hs
index caffa24..ac9147a 100644
--- a/GHC/IO/Encoding/Types.hs
+++ b/GHC/IO/Encoding/Types.hs
@@ -90,8 +90,12 @@ data TextEncoding
         textEncodingName :: String,
                    -- ^ a string that can be passed to 'mkTextEncoding' to
                    -- create an equivalent 'TextEncoding'.
-	mkTextDecoder :: IO (TextDecoder dstate),
-	mkTextEncoder :: IO (TextEncoder estate)
+        mkTextDecoder :: IO (TextDecoder dstate),
+                   -- ^ Creates a means of decoding bytes into characters: the result must not
+                   -- be shared between several byte sequences or simultaneously across threads
+        mkTextEncoder :: IO (TextEncoder estate)
+                   -- ^ Creates a means of encode characters into bytes: the result must not
+                   -- be shared between several character sequences or simultaneously across threads
   }
 
 instance Show TextEncoding where