X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FIO%2FEncoding%2FTypes.hs;h=ac9147a151d22a4f7f80279d9f68af1ad2a628b1;hb=54a0b4928967a350be687e17ff3576f2af6e21fb;hp=caffa24815f0e8c255bcc413022420c16fc54a0c;hpb=a8927d235f8189bcd05df3bc4c130a9a184672e4;p=ghc-base.git

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