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

[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/38a35e419ddf54b0ba17b69d382550efc17a151f/ghc

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

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

    Use isTypeArg instead of isTyCoArg (forgot why)


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

38a35e419ddf54b0ba17b69d382550efc17a151f
 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 ae99609..ba015bf 100644
--- a/compiler/stranal/DmdAnal.lhs
+++ b/compiler/stranal/DmdAnal.lhs
@@ -498,7 +498,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