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

git at git.haskell.org git at git.haskell.org
Thu Dec 12 17:57:16 UTC 2013


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

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

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

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

    Use isTypeArg instead of isTyCoArg (forgot why)


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

8c501a9a4755fe7990cd811718b40da1a745cd22
 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