From b4066c5141439bb901d5cc1738b91a2bead605e1 Mon Sep 17 00:00:00 2001 From: mrkun Date: Sun, 30 Jan 2022 22:04:52 +0300 Subject: [PATCH] Upgrade lardrNameToTextAnnGen to LocatedAn --- .../Language/Haskell/Brittany/Internal/LayouterBasics.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/source/library/Language/Haskell/Brittany/Internal/LayouterBasics.hs b/source/library/Language/Haskell/Brittany/Internal/LayouterBasics.hs index 0dd6de0..1694eb3 100644 --- a/source/library/Language/Haskell/Brittany/Internal/LayouterBasics.hs +++ b/source/library/Language/Haskell/Brittany/Internal/LayouterBasics.hs @@ -152,7 +152,7 @@ lrdrNameToTextAnnGen -- , MonadMultiReader (Map AnnKey Annotation) m ) => (Text -> Text) - -> Located RdrName + -> LocatedAn an RdrName -> m Text lrdrNameToTextAnnGen f ast@(L _ n) = do -- anns <- mAsk @@ -181,7 +181,7 @@ lrdrNameToTextAnn :: (MonadMultiReader Config m -- , MonadMultiReader (Map AnnKey Annotation) m ) - => Located RdrName + => LocatedAn an RdrName -> m Text lrdrNameToTextAnn = lrdrNameToTextAnnGen id @@ -189,7 +189,7 @@ lrdrNameToTextAnnTypeEqualityIsSpecial :: (MonadMultiReader Config m -- , MonadMultiReader (Map AnnKey Annotation) m ) - => Located RdrName + => LocatedAn an RdrName -> m Text lrdrNameToTextAnnTypeEqualityIsSpecial ast = do let @@ -209,7 +209,7 @@ lrdrNameToTextAnnTypeEqualityIsSpecialAndRespectTick -- , MonadMultiReader (Map AnnKey Annotation) m ) => Located ast - -> Located RdrName + -> LocatedAn an RdrName -> m Text lrdrNameToTextAnnTypeEqualityIsSpecialAndRespectTick ast1 ast2 = do hasQuote <- hasAnnKeyword ast1 AnnSimpleQuote