summaryrefslogtreecommitdiff
path: root/compiler/iface
diff options
context:
space:
mode:
authorMichal Terepeta <michal.terepeta@gmail.com>2012-11-12 21:31:32 +0100
committerIan Lynagh <ian@well-typed.com>2012-11-23 16:05:57 +0000
commit64efee6225ac18e54919d1690073fa2404a74a6c (patch)
tree8e6114d0b47f8b66e1cdb68f00f2422a65bdd305 /compiler/iface
parent951e28c0625ece7e0db6ac9d4a1e61e2737b10de (diff)
downloadhaskell-64efee6225ac18e54919d1690073fa2404a74a6c.tar.gz
Add fixity information to primops (ticket #6026)
Diffstat (limited to 'compiler/iface')
-rw-r--r--compiler/iface/LoadIface.lhs6
1 files changed, 4 insertions, 2 deletions
diff --git a/compiler/iface/LoadIface.lhs b/compiler/iface/LoadIface.lhs
index f978577b23..6dfac27d5d 100644
--- a/compiler/iface/LoadIface.lhs
+++ b/compiler/iface/LoadIface.lhs
@@ -38,6 +38,7 @@ import TcRnMonad
import Constants
import PrelNames
import PrelInfo
+import PrimOp ( allThePrimOps, primOpFixity, primOpOcc )
import MkId ( seqId )
import Rules
import Annotations
@@ -604,8 +605,9 @@ ghcPrimIface
mi_fix_fn = mkIfaceFixCache fixities
}
where
- fixities = [(getOccName seqId, Fixity 0 InfixR)]
- -- seq is infixr 0
+ fixities = (getOccName seqId, Fixity 0 InfixR) -- seq is infixr 0
+ : mapMaybe mkFixity allThePrimOps
+ mkFixity op = (,) (primOpOcc op) <$> primOpFixity op
\end{code}
%*********************************************************