From 64efee6225ac18e54919d1690073fa2404a74a6c Mon Sep 17 00:00:00 2001 From: Michal Terepeta Date: Mon, 12 Nov 2012 21:31:32 +0100 Subject: Add fixity information to primops (ticket #6026) --- compiler/iface/LoadIface.lhs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'compiler/iface') 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} %********************************************************* -- cgit v1.2.1