diff options
| -rw-r--r-- | compiler/iface/LoadIface.lhs | 4 | ||||
| -rw-r--r-- | compiler/prelude/primops.txt.pp | 1 |
2 files changed, 2 insertions, 3 deletions
diff --git a/compiler/iface/LoadIface.lhs b/compiler/iface/LoadIface.lhs index 6dfac27d5d..f77cb1e3b4 100644 --- a/compiler/iface/LoadIface.lhs +++ b/compiler/iface/LoadIface.lhs @@ -39,7 +39,6 @@ import Constants import PrelNames import PrelInfo import PrimOp ( allThePrimOps, primOpFixity, primOpOcc ) -import MkId ( seqId ) import Rules import Annotations import InstEnv @@ -605,8 +604,7 @@ ghcPrimIface mi_fix_fn = mkIfaceFixCache fixities } where - fixities = (getOccName seqId, Fixity 0 InfixR) -- seq is infixr 0 - : mapMaybe mkFixity allThePrimOps + fixities = mapMaybe mkFixity allThePrimOps mkFixity op = (,) (primOpOcc op) <$> primOpFixity op \end{code} diff --git a/compiler/prelude/primops.txt.pp b/compiler/prelude/primops.txt.pp index c6e1b47706..282165fff7 100644 --- a/compiler/prelude/primops.txt.pp +++ b/compiler/prelude/primops.txt.pp @@ -2091,6 +2091,7 @@ pseudoop "seq" a -> b -> b { Evaluates its first argument to head normal form, and then returns its second argument as the result. } + with fixity = infixr 0 primtype Any k { The type constructor {\tt Any} is type to which you can unsafely coerce any |