[project @ 1996-04-25 13:02:32 by partain]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcExpr.lhs

diff --git a/ghc/compiler/typecheck/TcExpr.lhs b/ghc/compiler/typecheck/TcExpr.lhs
index 2cabcf1..2813277 100644 (file)
--- a/ghc/compiler/typecheck/TcExpr.lhs
+++ b/ghc/compiler/typecheck/TcExpr.lhs
@@ -168,7 +168,7 @@ tcExpr (HsLit lit@(HsString str))
 \begin{code}
 tcExpr (HsPar expr) = tcExpr expr
 
-tcExpr (NegApp expr) = panic "tcExpr:NegApp"
+tcExpr (NegApp expr n) = tcExpr (HsApp (HsVar n) expr)
 
 tcExpr (HsLam match)
   = tcMatch match      `thenTc` \ (match',lie,ty) ->