[Git][ghc/ghc][wip/T25281] Avoid incomplete rec sel

[Simon Peyton Jones (@simonpj)]

Simon Peyton Jones pushed to branch wip/T25281 at Glasgow Haskell Compiler / GHC


Commits:
a7716a59 by Simon Peyton Jones at 2024-10-08T23:13:07+01:00
Avoid incomplete rec sel

- - - - -


2 changed files:

- utils/check-exact/Transform.hs
- utils/check-exact/Utils.hs


Changes:

=====================================
utils/check-exact/Transform.hs
=====================================
@@ -563,7 +563,7 @@ priorCommentsDeltas r cs = go r (sortEpaComments cs)
   where
     go :: RealSrcSpan -> [LEpaComment] -> [(Int, LEpaComment)]
     go _   [] = []
-    go _   (la@(L l@(EpaDelta _ dp _) _):las) = (deltaLine dp, la) : go (anchor l) las
+    go _   (la@(L l@(EpaDelta _ dp _) _):las) = (getDeltaLine dp, la) : go (anchor l) las
     go rs' (la@(L l _):las) = deltaComment rs' la : go (anchor l) las
 
     deltaComment :: RealSrcSpan -> LEpaComment -> (Int, LEpaComment)


=====================================
utils/check-exact/Utils.hs
=====================================
@@ -389,7 +389,7 @@ priorCommentsDeltas' r cs = go r (reverse cs)
   where
     go :: RealSrcSpan -> [LEpaComment] -> [(Int, LEpaComment)]
     go _   [] = []
-    go _   (la@(L l@(EpaDelta _ dp _) _):las) = (deltaLine dp, la) : go (anchor l) las
+    go _   (la@(L l@(EpaDelta _ dp _) _):las) = (getDeltaLine dp, la) : go (anchor l) las
     go rs' (la@(L l _):las) = deltaComment rs' la : go (anchor l) las
 
     deltaComment :: RealSrcSpan -> LEpaComment -> (Int, LEpaComment)



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/a7716a59dd0efd11bbe42586c9e9340f32ae7d12

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/a7716a59dd0efd11bbe42586c9e9340f32ae7d12
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20241008/0ed22bb0/attachment-0001.html>