Repository : ssh://darcs.haskell.org//srv/darcs/packages/bytestring On branch : ghc-7.6
http://hackage.haskell.org/trac/ghc/changeset/5973fe1fba29509bac610f6ea893e79bbc487eba >--------------------------------------------------------------- commit 5973fe1fba29509bac610f6ea893e79bbc487eba Author: Duncan Coutts <[email protected]> Date: Wed Sep 5 01:52:02 2012 +0000 Don't export builder prim testing support functions Now that it's an exposed API >--------------------------------------------------------------- Data/ByteString/Builder/Prim.hs | 7 ++++--- 1 files changed, 4 insertions(+), 3 deletions(-) diff --git a/Data/ByteString/Builder/Prim.hs b/Data/ByteString/Builder/Prim.hs index 4c85bb0..396f287 100644 --- a/Data/ByteString/Builder/Prim.hs +++ b/Data/ByteString/Builder/Prim.hs @@ -447,6 +447,7 @@ module Data.ByteString.Builder.Prim ( -- a decimal number with UTF-8 encoded characters. , charUtf8 +{- -- * Testing support -- | The following four functions are intended for testing use -- only. They are /not/ efficient. Basic encodings are efficently executed by @@ -458,7 +459,7 @@ module Data.ByteString.Builder.Prim ( , showF , showB - +-} ) where import Data.ByteString.Builder.Internal @@ -764,7 +765,7 @@ encodeCharUtf8 f1 f2 f3 f4 c = case ord c of ------------------------------------------------------------------------------ -- Testing encodings ------------------------------------------------------------------------------ - +{- -- | /For testing use only./ Evaluate a 'FixedPrim' on a given value. evalF :: FixedPrim a -> a -> [Word8] evalF fe = S.unpack . S.unsafeCreate (I.size fe) . runF fe @@ -787,5 +788,5 @@ showF fe = map (chr . fromIntegral) . evalF fe -- codepoints. showB :: BoundedPrim a -> a -> String showB be = map (chr . fromIntegral) . evalB be - +-} _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
