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

git at git.haskell.org git at git.haskell.org
Mon Dec 16 20:59:21 UTC 2013


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

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

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

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

    Use isTypeArg instead of isTyCoArg (forgot why)


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

d7caef11e80818938e20c471010acf785c496703
 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 cb5aa4a..0da1085 100644
--- a/compiler/stranal/DmdAnal.lhs
+++ b/compiler/stranal/DmdAnal.lhs
@@ -509,7 +509,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



More information about the ghc-commits mailing list