diff options
author | Michal Terepeta <michal.terepeta@gmail.com> | 2012-11-12 21:31:32 +0100 |
---|---|---|
committer | Ian Lynagh <ian@well-typed.com> | 2012-11-23 16:05:57 +0000 |
commit | 64efee6225ac18e54919d1690073fa2404a74a6c (patch) | |
tree | 8e6114d0b47f8b66e1cdb68f00f2422a65bdd305 /compiler/iface | |
parent | 951e28c0625ece7e0db6ac9d4a1e61e2737b10de (diff) | |
download | haskell-64efee6225ac18e54919d1690073fa2404a74a6c.tar.gz |
Add fixity information to primops (ticket #6026)
Diffstat (limited to 'compiler/iface')
-rw-r--r-- | compiler/iface/LoadIface.lhs | 6 |
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} %********************************************************* |