Repository : ssh://darcs.haskell.org//srv/darcs/packages/base On branch : master
http://hackage.haskell.org/trac/ghc/changeset/d1fbd3b7c3d1ddfeabffe2b6afeb34ca6101443c >--------------------------------------------------------------- commit d1fbd3b7c3d1ddfeabffe2b6afeb34ca6101443c Author: Ian Lynagh <[email protected]> Date: Fri Jul 22 23:01:10 2011 +0100 Tweak the typeable fingerprinting Put spaces inbetween the values, so e.g. p:Foobar.baz p:Foo.barbaz will hash differently. >--------------------------------------------------------------- Data/Typeable/Internal.hs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Data/Typeable/Internal.hs b/Data/Typeable/Internal.hs index cdd2778..70b468e 100644 --- a/Data/Typeable/Internal.hs +++ b/Data/Typeable/Internal.hs @@ -59,7 +59,7 @@ import GHC.Word import GHC.Show import GHC.Err (undefined) import Data.Maybe -import Data.List (intersperse) +import Data.List import GHC.Num import GHC.Real import GHC.IORef @@ -171,7 +171,7 @@ mkTyCon3 :: String -- ^ package name -> String -- ^ the name of the type constructor -> TyCon -- ^ A unique 'TyCon' object mkTyCon3 pkg modl name = - TyCon (fingerprintString (pkg++modl++name)) pkg modl name + TyCon (fingerprintString (unwords [pkg, modl, name])) pkg modl name ----------------- Observation --------------------- _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
