From d1e940ebb12bea63a71591fbf092aa7eadcc30ad Mon Sep 17 00:00:00 2001 From: mrkun Date: Sun, 30 Jan 2022 22:02:15 +0300 Subject: [PATCH] () --- .../Language/Haskell/Brittany/Internal/LayouterBasics.hs | 8 ++++---- .../Haskell/Brittany/Internal/Layouters/DataDecl.hs | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/source/library/Language/Haskell/Brittany/Internal/LayouterBasics.hs b/source/library/Language/Haskell/Brittany/Internal/LayouterBasics.hs index 4fc70b0..0dd6de0 100644 --- a/source/library/Language/Haskell/Brittany/Internal/LayouterBasics.hs +++ b/source/library/Language/Haskell/Brittany/Internal/LayouterBasics.hs @@ -620,7 +620,7 @@ docTick = docLit $ Text.pack "'" docNodeAnnKW :: Data.Data.Data ast - => Located ast + => LocatedAn an ast -> Maybe AnnKeywordId -> ToBriDocM BriDocNumbered -> ToBriDocM BriDocNumbered @@ -639,15 +639,15 @@ docNodeMoveToKWDP ast kw shouldRestoreIndent bdm = class DocWrapable a where docWrapNode :: ( Data.Data.Data ast) - => LocatedAn an ast + => Located ast -> a -> a docWrapNodePrior :: ( Data.Data.Data ast) - => LocatedAn an ast + => Located ast -> a -> a docWrapNodeRest :: ( Data.Data.Data ast) - => LocatedAn an ast + => Located ast -> a -> a diff --git a/source/library/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs b/source/library/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs index 3cecab9..c3df7e8 100644 --- a/source/library/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs +++ b/source/library/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs @@ -282,7 +282,7 @@ derivingClauseDoc (L _ (HsDerivingClause _ext mStrategy types)) = case types of ] where strategyLeftRight - :: GenLocated (SrcAnn ann) (DerivStrategy GhcPs) + :: Located (DerivStrategy GhcPs) -> (ToBriDocM BriDocNumbered, ToBriDocM BriDocNumbered) strategyLeftRight = \case (L _ (StockStrategy _)) -> (docLitS " stock", docEmpty)