From 73ef14cea527df72eac1bb3d6d99cb69e75f34b1 Mon Sep 17 00:00:00 2001 From: mrkun Date: Fri, 28 Jan 2022 22:42:18 +0300 Subject: [PATCH] Make Internal.Types fake-compile --- .../Language/Haskell/Brittany/Internal/Types.hs | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/source/library/Language/Haskell/Brittany/Internal/Types.hs b/source/library/Language/Haskell/Brittany/Internal/Types.hs index 6a2c8af..3198f86 100644 --- a/source/library/Language/Haskell/Brittany/Internal/Types.hs +++ b/source/library/Language/Haskell/Brittany/Internal/Types.hs @@ -22,29 +22,31 @@ import GHC (AnnKeywordId, GenLocated, Located, SrcSpan) import Language.Haskell.Brittany.Internal.Config.Types import Language.Haskell.Brittany.Internal.Prelude import qualified Language.Haskell.GHC.ExactPrint as ExactPrint -import Language.Haskell.GHC.ExactPrint (AnnKey) +-- import Language.Haskell.GHC.ExactPrint (AnnKey) import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint.Types -import Language.Haskell.GHC.ExactPrint.Types (Anns) +-- import Language.Haskell.GHC.ExactPrint.Types (Anns) import qualified Safe +type Anns = () +type AnnKey = () data PerItemConfig = PerItemConfig { _icd_perBinding :: Map String (CConfig Maybe) - , _icd_perKey :: Map ExactPrint.Types.AnnKey (CConfig Maybe) + , _icd_perKey :: Map AnnKey (CConfig Maybe) } deriving Data.Data.Data type PPM = MultiRWSS.MultiRWS - '[Map ExactPrint.AnnKey ExactPrint.Anns, PerItemConfig, Config, ExactPrint.Anns] + '[Map AnnKey Anns, PerItemConfig, Config, Anns] '[Text.Builder.Builder, [BrittanyError], Seq String] '[] type PPMLocal = MultiRWSS.MultiRWS - '[Config, ExactPrint.Anns] + '[Config, Anns] '[Text.Builder.Builder, [BrittanyError], Seq String] '[] -newtype TopLevelDeclNameMap = TopLevelDeclNameMap (Map ExactPrint.AnnKey String) +newtype TopLevelDeclNameMap = TopLevelDeclNameMap (Map AnnKey String) data LayoutState = LayoutState { _lstate_baseYs :: [Int] @@ -131,7 +133,7 @@ instance Show LayoutState where -- -- when creating zero-indentation -- -- multi-line list literals. -- , _lsettings_importColumn :: Int --- , _lsettings_initialAnns :: ExactPrint.Anns +-- , _lsettings_initialAnns :: Anns -- } data BrittanyError