From: qrczak <unknown>
Date: Fri, 26 Jan 2001 16:13:54 +0000 (+0000)
Subject: [project @ 2001-01-26 16:13:54 by qrczak]
X-Git-Tag: Approximately_9120_patches~2806
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a64fedf336c806a9ff94c044d7fb4e134ec1707d;p=ghc-hetmet.git

[project @ 2001-01-26 16:13:54 by qrczak]
Eta-expand to avoid monomorphism restriction.
---

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 :-(