From b5fe532686b527c92994415c1e7e287d33861242 Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Sun, 21 Jun 2009 17:14:19 +0200 Subject: [PATCH] Fix compile error three commits back. --- NormalizeTools.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/NormalizeTools.hs b/NormalizeTools.hs index 7ccb4d1..c36d85f 100644 --- a/NormalizeTools.hs +++ b/NormalizeTools.hs @@ -58,8 +58,8 @@ mkTypeVar str kind = do -- works for both value and type level expressions, so it can return a Var or -- TyVar (which is just an alias for Var). mkBinderFor :: CoreExpr -> String -> TransformMonad Var.Var -mkBinderFor (Type ty) = mkTypeVar string (Type.typeKind ty) -mkBinderFor expr = mkInternalVar string (CoreUtils.exprType expr) +mkBinderFor (Type ty) string = mkTypeVar string (Type.typeKind ty) +mkBinderFor expr string = mkInternalVar string (CoreUtils.exprType expr) -- Creates a reference to the given variable. This works for both a normal -- variable as well as a type variable -- 2.30.2