recursion-ninja pushed to branch wip/fix-26953 at Glasgow Haskell Compiler / GHC
Commits:
-
00568ff7
by Recursion Ninja at 2026-06-26T13:59:20-04:00
3 changed files:
Changes:
| ... | ... | @@ -671,7 +671,7 @@ fromIfaceWarningTxt = \case |
| 671 | 671 | fromIfaceStringLiteralWithNames :: (IfaceStringLiteral, [IfExtName]) -> WithHsDocIdentifiers (StringLiteral GhcRn) GhcRn
|
| 672 | 672 | fromIfaceStringLiteralWithNames (str, names) = WithHsDocIdentifiers (fromIfaceStringLiteral str) (map noLoc names)
|
| 673 | 673 | |
| 674 | -fromIfaceStringLiteral :: IfaceStringLiteral -> StringLiteral (GhcPass p)
|
|
| 674 | +fromIfaceStringLiteral :: IfaceStringLiteral -> StringLiteral GhcRn
|
|
| 675 | 675 | fromIfaceStringLiteral (IfStringLiteral st fs) = StringLiteral st fs
|
| 676 | 676 | |
| 677 | 677 |
| ... | ... | @@ -28,6 +28,6 @@ toIfaceWarningTxt (DeprecatedTxt src strs) = IfDeprecatedTxt src (map (toIfaceSt |
| 28 | 28 | toIfaceStringLiteralWithNames :: WithHsDocIdentifiers (StringLiteral GhcRn) GhcRn -> (IfaceStringLiteral, [IfExtName])
|
| 29 | 29 | toIfaceStringLiteralWithNames (WithHsDocIdentifiers src names) = (toIfaceStringLiteral src, map unLoc names)
|
| 30 | 30 | |
| 31 | -toIfaceStringLiteral :: StringLiteral (GhcPass p) -> IfaceStringLiteral
|
|
| 31 | +toIfaceStringLiteral :: StringLiteral GhcRn -> IfaceStringLiteral
|
|
| 32 | 32 | toIfaceStringLiteral sLit =
|
| 33 | 33 | IfStringLiteral (stringLitSourceText sLit) (sl_fs sLit) |
| ... | ... | @@ -1584,7 +1584,7 @@ instance ExactPrint (LocatedP (WarningTxt GhcPs)) where |
| 1584 | 1584 | c' <- markEpToken c
|
| 1585 | 1585 | return (L (EpAnn l (AnnPragma o' c' (os',cs') l1 l2 t m) css) (DeprecatedTxt src ws'))
|
| 1586 | 1586 | |
| 1587 | -instance Typeable p => ExactPrint (InWarningCategory (GhcPass p)) where
|
|
| 1587 | +instance ExactPrint (InWarningCategory GhcPs) where
|
|
| 1588 | 1588 | getAnnotationEntry _ = NoEntryVal
|
| 1589 | 1589 | setAnnotationAnchor a _ _ _ = a
|
| 1590 | 1590 | |
| ... | ... | @@ -1969,7 +1969,7 @@ exactNsSpec (DataNamespaceSpecifier data_) = do |
| 1969 | 1969 | |
| 1970 | 1970 | -- ---------------------------------------------------------------------
|
| 1971 | 1971 | |
| 1972 | -instance Typeable p => ExactPrint (StringLiteral (GhcPass p)) where
|
|
| 1972 | +instance ExactPrint (StringLiteral GhcPs) where
|
|
| 1973 | 1973 | getAnnotationEntry = const NoEntryVal
|
| 1974 | 1974 | setAnnotationAnchor a _ _ _ = a
|
| 1975 | 1975 |