698fa0c · text · git.iko.soy

Data Text: Used mispelled mkNorepType for compatibility with GHC 6.10

--HG-- extra : convert_revision : 39147e11bcc343c39d3168566592fb03badbf330

commit698fa0c63c1c19a690781a06ea3da9355463b6b1 authorJeremy Shaw <jeremy@seereason.com> dateFri 5 Feb 2010, 17:21 (17 years ago) parentcfa6aa2

1 file changed+5−2

unifiedsplit

Data/Text.hs+5−2

@@ -172,7 +172,7 @@ import Control.DeepSeq (NFData)

172172#endif

173173import Control.Exception (assert)

174174import Data.Char (isSpace)

175−import Data.Data (Data(gfoldl, toConstr, gunfold, dataTypeOf), mkNoRepType)

175+import Data.Data (Data(gfoldl, toConstr, gunfold, dataTypeOf), mkNorepType)

176176import Control.Monad (foldM)

177177import Control.Monad.ST (ST)

178178import qualified Data.Text.Array as A

@@ -234,11 +234,14 @@ instance NFData Text

234234-- "could we get a Data instance for Data.Text.Text?"

235235-- http://groups.google.com/group/haskell-cafe/browse_thread/thread/b5bbb1b28a7e525d/0639d46852575b93

236236--

237+-- NOTE: we used the mispelled version of mkNoRepType for

238+-- compatibility with GHC 6.10. Eventually this should be updated:

239+-- http://hackage.haskell.org/trac/ghc/ticket/2760

237240instance Data Text where

238241 gfoldl f z txt = z pack `f` (unpack txt)

239242 toConstr _ = error "Data.Text.Text:toConstr"

240243 gunfold _ _ = error "Data.Text.Text:gunfold"

241− dataTypeOf _ = mkNoRepType "Data.Text.Text"

244+ dataTypeOf _ = mkNorepType "Data.Text.Text"

242245

243246-- -----------------------------------------------------------------------------

244247-- * Conversion to/from 'Text'