From 3d12add3d86fe7b05b73696d3e18d5f1a58bc0a5 Mon Sep 17 00:00:00 2001
From: mrkun <mrgutkun@gmail.com>
Date: Fri, 28 Jan 2022 21:51:13 +0300
Subject: [PATCH] (try commenting out)

(run into Brittany.Internal.Types, & commenting that _probably_ won't work)
---
 .../Haskell/Brittany/Internal/ExactPrintUtils.hs  | 15 +++++++++------
 .../Haskell/Brittany/Internal/LayouterBasics.hs   |  2 +-
 2 files changed, 10 insertions(+), 7 deletions(-)

diff --git a/source/library/Language/Haskell/Brittany/Internal/ExactPrintUtils.hs b/source/library/Language/Haskell/Brittany/Internal/ExactPrintUtils.hs
index 63d6b53..4635bac 100644
--- a/source/library/Language/Haskell/Brittany/Internal/ExactPrintUtils.hs
+++ b/source/library/Language/Haskell/Brittany/Internal/ExactPrintUtils.hs
@@ -37,7 +37,7 @@ parseModule
   :: [String]
   -> System.IO.FilePath
   -> (GHC.DynFlags -> IO (Either String a))
-  -> IO (Either String (ExactPrint.Anns, GHC.ParsedSource, a))
+  -> IO (Either String (GHC.ParsedSource, a))
 parseModule args fp dynCheck = do
   str <- System.IO.readFile fp
   parseModuleFromString args fp dynCheck str
@@ -47,10 +47,10 @@ parseModuleFromString
   -> System.IO.FilePath
   -> (GHC.DynFlags -> IO (Either String a))
   -> String
-  -> IO (Either String (ExactPrint.Anns, GHC.ParsedSource, a))
+  -> IO (Either String (GHC.ParsedSource, a))
 parseModuleFromString = ParseModule.parseModule
 
-
+{-
 commentAnnFixTransformGlob :: SYB.Data ast => ast -> ExactPrint.Transform ()
 commentAnnFixTransformGlob ast = do
   let
@@ -115,7 +115,7 @@ commentAnnFixTransformGlob ast = do
           , ExactPrint.annsDP = assocs'
           }
       ExactPrint.modifyAnnsT $ \anns -> Map.insert annKey1 ann1' anns
-
+-}
 
 -- TODO: this is unused by now, but it contains one detail that
 --       commentAnnFixTransformGlob does not include: Moving of comments for
@@ -181,6 +181,8 @@ commentAnnFixTransformGlob ast = do
 
 --   ExactPrint.modifyAnnsT moveComments
 
+{--
+
 -- | split a set of annotations in a module into a map from top-level module
 -- elements to the relevant annotations. Avoids quadratic behaviour a trivial
 -- implementation would have.
@@ -229,7 +231,8 @@ foldedAnnKeys ast = SYB.everything
   ast
   where locTyCon = SYB.typeRepTyCon (SYB.typeOf (L () ()))
 
-
+-}
+{-
 withTransformedAnns
   :: Data ast
   => ast
@@ -248,7 +251,7 @@ withTransformedAnns ast m = MultiRWSS.mGetRawR >>= \case
       ((), (annsBalanced, _), _) =
         ExactPrint.runTransform anns (commentAnnFixTransformGlob ast)
     in annsBalanced
-
+-}
 
 warnExtractorCompat :: GHC.Warn -> String
 warnExtractorCompat (GHC.Warn _ (L _ s)) = s
diff --git a/source/library/Language/Haskell/Brittany/Internal/LayouterBasics.hs b/source/library/Language/Haskell/Brittany/Internal/LayouterBasics.hs
index 136468e..afc3af2 100644
--- a/source/library/Language/Haskell/Brittany/Internal/LayouterBasics.hs
+++ b/source/library/Language/Haskell/Brittany/Internal/LayouterBasics.hs
@@ -31,7 +31,7 @@ import Language.Haskell.Brittany.Internal.PreludeUtils
 import Language.Haskell.Brittany.Internal.Types
 import Language.Haskell.Brittany.Internal.Utils
 import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
-import qualified Language.Haskell.GHC.ExactPrint.Annotate as ExactPrint.Annotate
+-- import qualified Language.Haskell.GHC.ExactPrint.Annotate as ExactPrint.Annotate
 import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint.Types
 import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint
 import Language.Haskell.GHC.ExactPrint.Types (AnnKey, Annotation)