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 <[email protected]> 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) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
