X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcoreSyn%2FCoreUnfold.lhs;h=24d633085b926fe97f539c6ed9ad5183073eeeda;hb=d2ce0f52d42edf32bb9f13796e6ba6edba8bd516;hp=0a398d1bebcd4831f3caabc6c332a79e73c7c379;hpb=0084ab49ab3c0123c4b7f9523d092af45bccfd41;p=ghc-hetmet.git

diff --git a/compiler/coreSyn/CoreUnfold.lhs b/compiler/coreSyn/CoreUnfold.lhs
index 0a398d1..24d6330 100644
--- a/compiler/coreSyn/CoreUnfold.lhs
+++ b/compiler/coreSyn/CoreUnfold.lhs
@@ -1112,7 +1112,7 @@ interestingArg e = go e 0
     go (Note _ a) 	 n = go a n
     go (Cast e _) 	 n = go e n
     go (Lam v e)  	 n 
-       | isTyVar v	   = go e n
+       | isTyCoVar v	   = go e n
        | n>0	 	   = go e (n-1)
        | otherwise	   = ValueArg
     go (Let _ e)  	 n = case go e n of { ValueArg -> ValueArg; _ -> NonTrivArg }