From a64fedf336c806a9ff94c044d7fb4e134ec1707d Mon Sep 17 00:00:00 2001
From: qrczak <unknown>
Date: Fri, 26 Jan 2001 16:13:54 +0000
Subject: [PATCH] [project @ 2001-01-26 16:13:54 by qrczak] Eta-expand to
 avoid monomorphism restriction.

---
 ghc/utils/genprimopcode/Main.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/utils/genprimopcode/Main.hs b/ghc/utils/genprimopcode/Main.hs
index 18f5ffe..79cdada 100644
--- a/ghc/utils/genprimopcode/Main.hs
+++ b/ghc/utils/genprimopcode/Main.hs
@@ -495,7 +495,7 @@ optdef d p
 sel12 a b = a
 sel22 a b = b
 sel23 a b c = b
-apply = liftM
+apply f p = liftM f p
 
 -- Hacks for zapping whitespace and comments, unfortunately needed
 -- because Daan won't let us have a lexer before the parser :-(
-- 
1.7.10.4