X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Futils%2Fgenprimopcode%2FMain.hs;h=79cdadafee33d95217e9662b784169c4638209ae;hb=a64fedf336c806a9ff94c044d7fb4e134ec1707d;hp=18f5ffecdb124a4f1d42149dda82d8f64c470d16;hpb=8a412ad430be3513ea2385123979d5ef505a4f77;p=ghc-hetmet.git

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