From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Sun, 21 Jun 2009 15:14:19 +0000 (+0200)
Subject: Fix compile error three commits back.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=b5fe532686b527c92994415c1e7e287d33861242;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Fix compile error three commits back.
---

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