[commit: ghc] type-holes-branch: Use a placeholder for the code generation. (2870614)
Simon Peyton Jones <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : type-holes-branch http://hackage.haskell.org/trac/ghc/changeset/2870614956d35eac4d4775afcfa0372fcbc47575 >--------------------------------------------------------------- commit 2870614956d35eac4d4775afcfa0372fcbc47575 Author: Thijs Alkemade <[email protected]> Date: Wed Feb 29 15:29:11 2012 +0100 Use a placeholder for the code generation. Loading finishes now, running now panics. >--------------------------------------------------------------- compiler/deSugar/DsExpr.lhs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/deSugar/DsExpr.lhs b/compiler/deSugar/DsExpr.lhs index 8f1ef7a..0404045 100644 --- a/compiler/deSugar/DsExpr.lhs +++ b/compiler/deSugar/DsExpr.lhs @@ -234,8 +234,8 @@ dsExpr (HsLam a_Match) dsExpr (HsApp fun arg) = mkCoreAppDs <$> dsLExpr fun <*> dsLExpr arg -dsExpr (HsHole src) - = undefined -- return (Hole src) +dsExpr (HsHole nm) + = return $ Var $ holeNameName nm \end{code} Note [Desugaring vars]