hexagoxel
/
brittany
1
0
Fork 0
Code Issues 117 Pull Requests 5 Packages Projects Releases 5 Wiki Activity

Upgrade lardrNameToTextAnnGen to LocatedAn

mxxun/ghc-9.2
mrkun 2022-01-30 22:04:52 +03:00
parent d1e940ebb1
commit b4066c5141
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
source/library/Language/Haskell/Brittany/Internal/LayouterBasics.hs
View File

@ -152,7 +152,7 @@ lrdrNameToTextAnnGen
-- , MonadMultiReader (Map AnnKey Annotation) m -- , MonadMultiReader (Map AnnKey Annotation) m
) )
=> (Text -> Text) => (Text -> Text)
-> Located RdrName -> LocatedAn an RdrName
-> m Text -> m Text
lrdrNameToTextAnnGen f ast@(L _ n) = do lrdrNameToTextAnnGen f ast@(L _ n) = do
-- anns <- mAsk -- anns <- mAsk
@ -181,7 +181,7 @@ lrdrNameToTextAnn
:: (MonadMultiReader Config m :: (MonadMultiReader Config m
-- , MonadMultiReader (Map AnnKey Annotation) m -- , MonadMultiReader (Map AnnKey Annotation) m
) )
=> Located RdrName => LocatedAn an RdrName
-> m Text -> m Text
lrdrNameToTextAnn = lrdrNameToTextAnnGen id lrdrNameToTextAnn = lrdrNameToTextAnnGen id
@ -189,7 +189,7 @@ lrdrNameToTextAnnTypeEqualityIsSpecial
:: (MonadMultiReader Config m :: (MonadMultiReader Config m
-- , MonadMultiReader (Map AnnKey Annotation) m -- , MonadMultiReader (Map AnnKey Annotation) m
) )
=> Located RdrName => LocatedAn an RdrName
-> m Text -> m Text
lrdrNameToTextAnnTypeEqualityIsSpecial ast = do lrdrNameToTextAnnTypeEqualityIsSpecial ast = do
let let
@ -209,7 +209,7 @@ lrdrNameToTextAnnTypeEqualityIsSpecialAndRespectTick
-- , MonadMultiReader (Map AnnKey Annotation) m -- , MonadMultiReader (Map AnnKey Annotation) m
) )
=> Located ast => Located ast
-> Located RdrName -> LocatedAn an RdrName
-> m Text -> m Text
lrdrNameToTextAnnTypeEqualityIsSpecialAndRespectTick ast1 ast2 = do lrdrNameToTextAnnTypeEqualityIsSpecialAndRespectTick ast1 ast2 = do
hasQuote <- hasAnnKeyword ast1 AnnSimpleQuote hasQuote <- hasAnnKeyword ast1 AnnSimpleQuote