[commit: ghc] type-holes-branch: This should never be reached, the hole should have been substituted by an HsVar. (9ed2ae1)

[Simon Peyton Jones]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : type-holes-branch

http://hackage.haskell.org/trac/ghc/changeset/9ed2ae1e4a43020a4706c6142fe398de769d8a34

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

commit 9ed2ae1e4a43020a4706c6142fe398de769d8a34
Author: Thijs Alkemade <thijsalkemade at gmail.com>
Date:   Fri Jul 27 11:37:59 2012 +0200

    This should never be reached, the hole should have been substituted by an HsVar.

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

 compiler/deSugar/Coverage.lhs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/compiler/deSugar/Coverage.lhs b/compiler/deSugar/Coverage.lhs
index 3a44391..dff6b37 100644
--- a/compiler/deSugar/Coverage.lhs
+++ b/compiler/deSugar/Coverage.lhs
@@ -570,7 +570,7 @@ addTickHsExpr (HsWrap w e) =
                 (addTickHsExpr e)       -- explicitly no tick on inside
 
 addTickHsExpr e@(HsType _) = return e
-addTickHsExpr HsHole = return HsHole
+addTickHsExpr HsHole = panic "addTickHsExpr.HsHole"
 
 -- Others dhould never happen in expression content.
 addTickHsExpr e  = pprPanic "addTickHsExpr" (ppr e)