Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC

Commits:

• e97232ce
  by Hai at 2026-03-27T04:47:04-04:00

  Parser.y: avoid looking at token with QualifiedDo
  
  This changes the behavior of 'hintQualifiedDo' so that the supplied
  token is not inspected when the QualifiedDo language extension bit is
  set.
  

1 changed file:

• compiler/GHC/Parser.y

Changes:

 -- Hint about qualified-do

 hintQualifiedDo :: Located Token -> P ()

 hintQualifiedDo tok = do

-    qualifiedDo   <- getBit QualifiedDoBit

-    case maybeQDoDoc of

-      Just qdoDoc | not qualifiedDo ->

-        addError $ mkPlainErrorMsgEnvelope (getLoc tok) $

-          (PsErrIllegalQualifiedDo qdoDoc)

-      _ -> return ()

+    qualifiedDo <- getBit QualifiedDoBit

+    unless qualifiedDo $

+      maybe

+        (return ())

+        (\qdoDoc ->

+          addError $ mkPlainErrorMsgEnvelope (getLoc tok) $

+            (PsErrIllegalQualifiedDo qdoDoc))

+        maybeQDoDoc

   where

     maybeQDoDoc = case unLoc tok of

       ITdo (Just m) -> Just $ ftext m <> text ".do"