[commit: ghc] wip/T12357: Add SCC on builtInOccNames map (d3a8db6)

git at git.haskell.org git at git.haskell.org
Tue Jul 5 07:48:28 UTC 2016


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/T12357
Link       : http://ghc.haskell.org/trac/ghc/changeset/d3a8db6e7a20e8ea3b80c67c8cdfc31ea761d684/ghc

>---------------------------------------------------------------

commit d3a8db6e7a20e8ea3b80c67c8cdfc31ea761d684
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Mon Jul 4 21:24:34 2016 -0400

    Add SCC on builtInOccNames map


>---------------------------------------------------------------

d3a8db6e7a20e8ea3b80c67c8cdfc31ea761d684
 compiler/prelude/TysWiredIn.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/prelude/TysWiredIn.hs b/compiler/prelude/TysWiredIn.hs
index abec6ff..86c942d 100644
--- a/compiler/prelude/TysWiredIn.hs
+++ b/compiler/prelude/TysWiredIn.hs
@@ -366,7 +366,7 @@ Note [How tuples work]  See also Note [Known-key names] in PrelNames
 -}
 
 builtInOccNames :: UniqFM (OccName -> Name)
-builtInOccNames = listToUFM $
+builtInOccNames = {-# SCC builtInOccNames #-}listToUFM $
     [ (fsLit "[]",    choose_ns listTyConName nilDataConName)
     , (fsLit ":" ,    const consDataConName)
     , (fsLit "[::]",  const parrTyConName)



More information about the ghc-commits mailing list