()

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
 

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)