[commit: ghc] master: mkNoScope: expand the default case (63c6f6a)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/63c6f6aa85b4cb6ee06539e980f10445954e22a0/ghc

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

commit 63c6f6aa85b4cb6ee06539e980f10445954e22a0
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Thu Nov 21 09:51:33 2013 +0000

    mkNoScope: expand the default case


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

63c6f6aa85b4cb6ee06539e980f10445954e22a0
 compiler/coreSyn/CoreSyn.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/coreSyn/CoreSyn.lhs b/compiler/coreSyn/CoreSyn.lhs
index 75cc5ed..22b7944 100644
--- a/compiler/coreSyn/CoreSyn.lhs
+++ b/compiler/coreSyn/CoreSyn.lhs
@@ -505,7 +505,7 @@ mkNoCount HpcTick{}    = panic "mkNoCount: HpcTick"
 mkNoScope :: Tickish id -> Tickish id
 mkNoScope n at ProfNote{} = n {profNoteScope = False}
 mkNoScope Breakpoint{} = panic "mkNoScope: Breakpoint" -- cannot split a BP
-mkNoScope t = t
+mkNoScope HpcTick{}    = panic "mkNoScope: HpcTick"
 
 -- | Return True if this source annotation compiles to some code, or will
 -- disappear before the backend.