X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcExpr.lhs;h=2813277f5748f641ee3012d8a10615737deab547;hb=4250d64191132fd493985549eda5ca05b82a663f;hp=2cabcf1ab3f86b24e5917cb83cea84fb3c3c99ac;hpb=b4255f2c320f852d7dfb0afc0bc9f64765aece0c;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcExpr.lhs b/ghc/compiler/typecheck/TcExpr.lhs
index 2cabcf1..2813277 100644
--- 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) ->