diff options
Diffstat (limited to 'compiler/iface')
| -rw-r--r-- | compiler/iface/BuildTyCl.hs | 2 | ||||
| -rw-r--r-- | compiler/iface/LoadIface.hs | 3 | ||||
| -rw-r--r-- | compiler/iface/TcIface.hs | 2 |
3 files changed, 4 insertions, 3 deletions
diff --git a/compiler/iface/BuildTyCl.hs b/compiler/iface/BuildTyCl.hs index 0337abcefc..b291bc53fd 100644 --- a/compiler/iface/BuildTyCl.hs +++ b/compiler/iface/BuildTyCl.hs @@ -390,7 +390,7 @@ buildClass tycon_name binders roles sc_theta ; traceIf (text "buildClass" <+> ppr tycon) ; return result } where - no_bang = HsSrcBang Nothing NoSrcUnpack NoSrcStrict + no_bang = HsSrcBang NoSourceText NoSrcUnpack NoSrcStrict mk_op_item :: Class -> TcMethInfo -> TcRnIf n m ClassOpItem mk_op_item rec_clas (op_name, _, dm_spec) diff --git a/compiler/iface/LoadIface.hs b/compiler/iface/LoadIface.hs index 48bc316d0a..921943afb9 100644 --- a/compiler/iface/LoadIface.hs +++ b/compiler/iface/LoadIface.hs @@ -923,7 +923,8 @@ ghcPrimIface mi_fix_fn = mkIfaceFixCache fixities } where - fixities = (getOccName seqId, Fixity "0" 0 InfixR) -- seq is infixr 0 + fixities = (getOccName seqId, Fixity NoSourceText 0 InfixR) + -- seq is infixr 0 : (occName funTyConName, funTyFixity) -- trac #10145 : mapMaybe mkFixity allThePrimOps mkFixity op = (,) (primOpOcc op) <$> primOpFixity op diff --git a/compiler/iface/TcIface.hs b/compiler/iface/TcIface.hs index 6baffedc67..123b02fc81 100644 --- a/compiler/iface/TcIface.hs +++ b/compiler/iface/TcIface.hs @@ -803,7 +803,7 @@ tcIfaceDataCons tycon_name tycon tc_tybinders if_cons ; return (HsUnpack (Just co)) } src_strict :: IfaceSrcBang -> HsSrcBang - src_strict (IfSrcBang unpk bang) = HsSrcBang Nothing unpk bang + src_strict (IfSrcBang unpk bang) = HsSrcBang NoSourceText unpk bang tcIfaceEqSpec :: IfaceEqSpec -> IfL [EqSpec] tcIfaceEqSpec spec |