-fprof-auto-top: eliminate some bogus extra SCCs we were adding
authorSimon Marlow <marlowsd@gmail.com>
Mon, 14 Nov 2011 12:48:39 +0000 (12:48 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Mon, 14 Nov 2011 15:14:08 +0000 (15:14 +0000)
compiler/deSugar/Coverage.lhs

index 5e55347..fd2895d 100644 (file)
@@ -550,9 +550,6 @@ addTickGRHSBody isOneOfMany isLambda expr@(L pos e0) = do
        addPathEntry "\\" $
          allocTickBox (ExpBox False) True{-count-} False{-not top-} pos $
            addTickHsExpr e0
-    TickTopFunctions ->
-       allocTickBox (ExpBox False) False{-no count-} True{-top-} pos $
-         addTickHsExpr e0
     _otherwise ->
        addTickLHsExprAlways expr