Anonymous committed 6c47a41

Data Text: Used mispelled mkNorepType for compatibility with GHC 6.10

Comments (0)

Files changed (1)

 import Control.Exception (assert)
 import Data.Char (isSpace)
-import Data.Data (Data(gfoldl, toConstr, gunfold, dataTypeOf), mkNoRepType)
+import Data.Data (Data(gfoldl, toConstr, gunfold, dataTypeOf), mkNorepType)
 import Control.Monad (foldM)
 import Control.Monad.ST (ST)
 import qualified Data.Text.Array as A
 --  "could we get a Data instance for Data.Text.Text?"
+-- NOTE: we used the mispelled version of mkNoRepType for
+-- compatibility with GHC 6.10. Eventually this should be updated:
 instance Data Text where
   gfoldl f z txt = z pack `f` (unpack txt)
   toConstr _     = error "Data.Text.Text:toConstr"
   gunfold _ _    = error "Data.Text.Text:gunfold"
-  dataTypeOf _   = mkNoRepType "Data.Text.Text"
+  dataTypeOf _   = mkNorepType "Data.Text.Text"
 -- -----------------------------------------------------------------------------
 -- * Conversion to/from 'Text'
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.