[commit: ghc] wip/nested-cpr: Use isTypeArg instead of isTyCoArg (forgot why) (34df8d4)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nested-cpr
Link       : http://ghc.haskell.org/trac/ghc/changeset/34df8d459e077e4438d1f84b42cf78a01ecd386f/ghc

>---------------------------------------------------------------

commit 34df8d459e077e4438d1f84b42cf78a01ecd386f
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Thu Dec 5 16:14:07 2013 +0000

    Use isTypeArg instead of isTyCoArg (forgot why)


>---------------------------------------------------------------

34df8d459e077e4438d1f84b42cf78a01ecd386f
 compiler/stranal/DmdAnal.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/stranal/DmdAnal.lhs b/compiler/stranal/DmdAnal.lhs
index 048abd2..42153b3 100644
--- a/compiler/stranal/DmdAnal.lhs
+++ b/compiler/stranal/DmdAnal.lhs
@@ -519,7 +519,7 @@ completeApp :: AnalEnv
 completeApp _ fun_ty_fun []
   = fun_ty_fun
 completeApp env (fun_ty, fun') (arg:args)
-  | isTyCoArg arg = completeApp env (fun_ty,                      App fun' arg)  args
+  | isTypeArg arg = completeApp env (fun_ty,                      App fun' arg)  args
   | otherwise     = completeApp env (res_ty `bothDmdType` arg_ty, App fun' arg') args
   where
     (arg_dmd, res_ty) = splitDmdTy fun_ty