diff options
Diffstat (limited to 'compiler/hieFile/HieAst.hs')
| -rw-r--r-- | compiler/hieFile/HieAst.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/compiler/hieFile/HieAst.hs b/compiler/hieFile/HieAst.hs index 40bb914d31..e77dcd3768 100644 --- a/compiler/hieFile/HieAst.hs +++ b/compiler/hieFile/HieAst.hs @@ -374,8 +374,8 @@ patScopes -> [LPat (GhcPass p)] -> [PScoped (LPat (GhcPass p))] patScopes rsp useScope patScope xs = - map (\(RS sc a) -> PS rsp useScope sc (composeSrcSpan a)) $ - listScopes patScope (map dL xs) + map (\(RS sc a) -> PS rsp useScope sc a) $ + listScopes patScope xs -- | 'listScopes' specialised to 'TVScoped' things tvScopes @@ -579,10 +579,10 @@ instance HasType (LHsBind GhcTc) where _ -> makeNode bind spn instance HasType (Located (Pat GhcRn)) where - getTypeNode (dL -> L spn pat) = makeNode pat spn + getTypeNode (L spn pat) = makeNode pat spn instance HasType (Located (Pat GhcTc)) where - getTypeNode (dL -> L spn opat) = makeTypeNode opat spn (hsPatType opat) + getTypeNode (L spn opat) = makeTypeNode opat spn (hsPatType opat) instance HasType (LHsExpr GhcRn) where getTypeNode (L spn e) = makeNode e spn @@ -766,7 +766,7 @@ instance ( a ~ GhcPass p , HasType (LPat a) , Data (HsSplice a) ) => ToHie (PScoped (Located (Pat (GhcPass p)))) where - toHie (PS rsp scope pscope lpat@(dL -> L ospan opat)) = + toHie (PS rsp scope pscope lpat@(L ospan opat)) = concatM $ getTypeNode lpat : case opat of WildPat _ -> [] @@ -778,7 +778,7 @@ instance ( a ~ GhcPass p ] AsPat _ lname pat -> [ toHie $ C (PatternBind scope - (combineScopes (mkLScope (dL pat)) pscope) + (combineScopes (mkLScope pat) pscope) rsp) lname , toHie $ PS rsp scope pscope pat @@ -822,7 +822,7 @@ instance ( a ~ GhcPass p ] SigPat _ pat sig -> [ toHie $ PS rsp scope pscope pat - , let cscope = mkLScope (dL pat) in + , let cscope = mkLScope pat in toHie $ TS (ResolvedScopes [cscope, scope, pscope]) (protectSig @a cscope sig) -- See Note [Scoping Rules for SigPat] |