[commit: ghc] master: tickishCanSplit should be False for HpcTick (fecf75b)

[git at git.haskell.org]

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

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

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

commit fecf75b22f2e4252ba883cd8bf87e5e78ef614b0
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Thu Nov 21 09:52:24 2013 +0000

    tickishCanSplit should be False for HpcTick
    
    (no functional changes I hope)


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

fecf75b22f2e4252ba883cd8bf87e5e78ef614b0
 compiler/coreSyn/CoreSyn.lhs |    1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/coreSyn/CoreSyn.lhs b/compiler/coreSyn/CoreSyn.lhs
index 22b7944..080c117 100644
--- a/compiler/coreSyn/CoreSyn.lhs
+++ b/compiler/coreSyn/CoreSyn.lhs
@@ -516,6 +516,7 @@ tickishIsCode _tickish = True  -- all of them for now
 -- 'mkNoScope' and 'mkNoCount' respectively.
 tickishCanSplit :: Tickish Id -> Bool
 tickishCanSplit Breakpoint{} = False
+tickishCanSplit HpcTick{}    = False
 tickishCanSplit _ = True
 \end{code}