From 1e7a94e72e330ba1f2837a8b32a57cb09e41a27a Mon Sep 17 00:00:00 2001 From: Taylor Fausak Date: Sat, 6 Nov 2021 17:12:55 +0000 Subject: [PATCH] Inline `prelude.inc` --- .hlint.yaml | 3 +- brittany.cabal | 6 - src-literatetests/Main.hs | 46 +++++- src-unittests/AsymptoticPerfTests.hs | 46 +++++- src-unittests/TestMain.hs | 46 +++++- src-unittests/TestUtils.hs | 46 +++++- src/Language/Haskell/Brittany.hs | 47 +++++- src/Language/Haskell/Brittany/Internal.hs | 46 +++++- .../Haskell/Brittany/Internal/Backend.hs | 47 +++++- .../Haskell/Brittany/Internal/BackendUtils.hs | 46 +++++- .../Haskell/Brittany/Internal/Config.hs | 46 +++++- .../Haskell/Brittany/Internal/Config/Types.hs | 46 +++++- .../Internal/Config/Types/Instances.hs | 46 +++++- .../Brittany/Internal/ExactPrintUtils.hs | 46 +++++- .../Brittany/Internal/LayouterBasics.hs | 46 +++++- .../Brittany/Internal/Layouters/DataDecl.hs | 46 +++++- .../Brittany/Internal/Layouters/Decl.hs | 46 +++++- .../Brittany/Internal/Layouters/Expr.hs | 46 +++++- .../Brittany/Internal/Layouters/Expr.hs-boot | 46 +++++- .../Haskell/Brittany/Internal/Layouters/IE.hs | 46 +++++- .../Brittany/Internal/Layouters/Import.hs | 46 +++++- .../Brittany/Internal/Layouters/Module.hs | 46 +++++- .../Brittany/Internal/Layouters/Pattern.hs | 46 +++++- .../Brittany/Internal/Layouters/Stmt.hs | 46 +++++- .../Brittany/Internal/Layouters/Stmt.hs-boot | 46 +++++- .../Brittany/Internal/Layouters/Type.hs | 46 +++++- .../Haskell/Brittany/Internal/Obfuscation.hs | 46 +++++- .../Brittany/Internal/Transformations/Alt.hs | 46 +++++- .../Internal/Transformations/Columns.hs | 46 +++++- .../Internal/Transformations/Floating.hs | 46 +++++- .../Internal/Transformations/Indent.hs | 46 +++++- .../Brittany/Internal/Transformations/Par.hs | 46 +++++- .../Haskell/Brittany/Internal/Types.hs | 46 +++++- .../Haskell/Brittany/Internal/Utils.hs | 46 +++++- src/Language/Haskell/Brittany/Main.hs | 46 +++++- srcinc/prelude.inc | 147 ------------------ 36 files changed, 1486 insertions(+), 190 deletions(-) delete mode 100644 srcinc/prelude.inc diff --git a/.hlint.yaml b/.hlint.yaml index 6fecf6a..1aaea27 100644 --- a/.hlint.yaml +++ b/.hlint.yaml @@ -8,8 +8,7 @@ # Specify additional command line arguments - arguments: - [ "--cpp-include=srcinc" - , "--language=GADTs" + [ "--language=GADTs" , "--language=LambdaCase" , "--language=MultiWayIf" , "--language=KindSignatures" diff --git a/brittany.cabal b/brittany.cabal index b389fe0..48f08ca 100644 --- a/brittany.cabal +++ b/brittany.cabal @@ -26,7 +26,6 @@ extra-doc-files: { } extra-source-files: { src-literatetests/*.blt - srcinc/prelude.inc } source-repository head { @@ -49,8 +48,6 @@ library { Haskell2010 hs-source-dirs: src - include-dirs: - srcinc exposed-modules: { Language.Haskell.Brittany Language.Haskell.Brittany.Main @@ -206,7 +203,6 @@ test-suite unittests other-modules: TestUtils AsymptoticPerfTests hs-source-dirs: src-unittests - include-dirs: srcinc default-extensions: { CPP @@ -278,7 +274,6 @@ test-suite littests main-is: Main.hs other-modules: hs-source-dirs: src-literatetests - include-dirs: srcinc default-extensions: { CPP @@ -320,7 +315,6 @@ test-suite libinterfacetests main-is: Main.hs other-modules: hs-source-dirs: src-libinterfacetests - include-dirs: srcinc default-extensions: { FlexibleContexts FlexibleInstances diff --git a/src-literatetests/Main.hs b/src-literatetests/Main.hs index ae469e3..bc860ce 100644 --- a/src-literatetests/Main.hs +++ b/src-literatetests/Main.hs @@ -8,7 +8,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Test.Hspec import Test.Hspec.Runner ( hspecWith diff --git a/src-unittests/AsymptoticPerfTests.hs b/src-unittests/AsymptoticPerfTests.hs index f3f35ba..636ff89 100644 --- a/src-unittests/AsymptoticPerfTests.hs +++ b/src-unittests/AsymptoticPerfTests.hs @@ -7,7 +7,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Test.Hspec diff --git a/src-unittests/TestMain.hs b/src-unittests/TestMain.hs index ca6dbb5..66eaed2 100644 --- a/src-unittests/TestMain.hs +++ b/src-unittests/TestMain.hs @@ -4,7 +4,51 @@ module Main where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Test.Hspec diff --git a/src-unittests/TestUtils.hs b/src-unittests/TestUtils.hs index 052ade6..a8b8e2e 100644 --- a/src-unittests/TestUtils.hs +++ b/src-unittests/TestUtils.hs @@ -4,7 +4,51 @@ module TestUtils where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Test.Hspec diff --git a/src/Language/Haskell/Brittany.hs b/src/Language/Haskell/Brittany.hs index 9d45dde..4eb99ea 100644 --- a/src/Language/Haskell/Brittany.hs +++ b/src/Language/Haskell/Brittany.hs @@ -21,10 +21,53 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Language.Haskell.Brittany.Internal import Language.Haskell.Brittany.Internal.Types import Language.Haskell.Brittany.Internal.Config.Types import Language.Haskell.Brittany.Internal.Config - diff --git a/src/Language/Haskell/Brittany/Internal.hs b/src/Language/Haskell/Brittany/Internal.hs index e1a111e..9bdd6cf 100644 --- a/src/Language/Haskell/Brittany/Internal.hs +++ b/src/Language/Haskell/Brittany/Internal.hs @@ -15,7 +15,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass -- brittany { lconfig_importAsColumn: 60, lconfig_importColumn: 60 } import qualified Language.Haskell.GHC.ExactPrint as ExactPrint diff --git a/src/Language/Haskell/Brittany/Internal/Backend.hs b/src/Language/Haskell/Brittany/Internal/Backend.hs index 234d55e..a22da90 100644 --- a/src/Language/Haskell/Brittany/Internal/Backend.hs +++ b/src/Language/Haskell/Brittany/Internal/Backend.hs @@ -12,7 +12,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import qualified Language.Haskell.GHC.ExactPrint as ExactPrint import qualified Language.Haskell.GHC.ExactPrint.Annotate as ExactPrint.Annotate @@ -716,4 +760,3 @@ processInfoIgnore = \case ColInfoStart -> error "should not happen (TM)" ColInfoNo doc -> layoutBriDocM doc ColInfo _ _ list -> list `forM_` (snd .> processInfoIgnore) - diff --git a/src/Language/Haskell/Brittany/Internal/BackendUtils.hs b/src/Language/Haskell/Brittany/Internal/BackendUtils.hs index 201c7c5..99eb46b 100644 --- a/src/Language/Haskell/Brittany/Internal/BackendUtils.hs +++ b/src/Language/Haskell/Brittany/Internal/BackendUtils.hs @@ -32,7 +32,51 @@ module Language.Haskell.Brittany.Internal.BackendUtils where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Language.Haskell.Brittany.Internal.Types import Language.Haskell.Brittany.Internal.Config.Types diff --git a/src/Language/Haskell/Brittany/Internal/Config.hs b/src/Language/Haskell/Brittany/Internal/Config.hs index b6ead91..904c272 100644 --- a/src/Language/Haskell/Brittany/Internal/Config.hs +++ b/src/Language/Haskell/Brittany/Internal/Config.hs @@ -20,7 +20,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Language.Haskell.Brittany.Internal.Types import Language.Haskell.Brittany.Internal.LayouterBasics diff --git a/src/Language/Haskell/Brittany/Internal/Config/Types.hs b/src/Language/Haskell/Brittany/Internal/Config/Types.hs index 18fb92b..d596708 100644 --- a/src/Language/Haskell/Brittany/Internal/Config/Types.hs +++ b/src/Language/Haskell/Brittany/Internal/Config/Types.hs @@ -12,7 +12,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Data.Yaml import qualified Data.Aeson.Types as Aeson diff --git a/src/Language/Haskell/Brittany/Internal/Config/Types/Instances.hs b/src/Language/Haskell/Brittany/Internal/Config/Types/Instances.hs index b8ba9cf..d0838c0 100644 --- a/src/Language/Haskell/Brittany/Internal/Config/Types/Instances.hs +++ b/src/Language/Haskell/Brittany/Internal/Config/Types/Instances.hs @@ -18,7 +18,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Data.Yaml import qualified Data.Aeson.Key as Key diff --git a/src/Language/Haskell/Brittany/Internal/ExactPrintUtils.hs b/src/Language/Haskell/Brittany/Internal/ExactPrintUtils.hs index 2100c4f..036f5d9 100644 --- a/src/Language/Haskell/Brittany/Internal/ExactPrintUtils.hs +++ b/src/Language/Haskell/Brittany/Internal/ExactPrintUtils.hs @@ -12,7 +12,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Language.Haskell.Brittany.Internal.Types import Language.Haskell.Brittany.Internal.Config.Types diff --git a/src/Language/Haskell/Brittany/Internal/LayouterBasics.hs b/src/Language/Haskell/Brittany/Internal/LayouterBasics.hs index a93996c..2c1a37d 100644 --- a/src/Language/Haskell/Brittany/Internal/LayouterBasics.hs +++ b/src/Language/Haskell/Brittany/Internal/LayouterBasics.hs @@ -80,7 +80,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import qualified Control.Monad.Writer.Strict as Writer diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs b/src/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs index b747293..243dbf6 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs @@ -10,7 +10,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Language.Haskell.Brittany.Internal.Types import Language.Haskell.Brittany.Internal.LayouterBasics diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs index d251dfb..38843f6 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs @@ -18,7 +18,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Language.Haskell.Brittany.Internal.Types import Language.Haskell.Brittany.Internal.LayouterBasics diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs index ac6e4ad..1386816 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs @@ -10,7 +10,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Language.Haskell.Brittany.Internal.Types import Language.Haskell.Brittany.Internal.LayouterBasics diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs-boot b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs-boot index f32fc3a..8e77eda 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs-boot +++ b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs-boot @@ -9,7 +9,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Language.Haskell.Brittany.Internal.Types import Language.Haskell.Brittany.Internal.LayouterBasics diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/IE.hs b/src/Language/Haskell/Brittany/Internal/Layouters/IE.hs index 45cd047..89945cd 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/IE.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/IE.hs @@ -6,7 +6,51 @@ module Language.Haskell.Brittany.Internal.Layouters.IE ) where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Language.Haskell.Brittany.Internal.Types import Language.Haskell.Brittany.Internal.LayouterBasics diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Import.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Import.hs index 09af4de..1eae5d6 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/Import.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/Import.hs @@ -1,6 +1,50 @@ module Language.Haskell.Brittany.Internal.Layouters.Import (layoutImport) where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Language.Haskell.Brittany.Internal.Types import Language.Haskell.Brittany.Internal.LayouterBasics diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Module.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Module.hs index a968a97..014b9fe 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/Module.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/Module.hs @@ -2,7 +2,51 @@ module Language.Haskell.Brittany.Internal.Layouters.Module (layoutModule) where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Language.Haskell.Brittany.Internal.Types import Language.Haskell.Brittany.Internal.LayouterBasics diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Pattern.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Pattern.hs index 1fa3800..bf5b8e0 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/Pattern.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/Pattern.hs @@ -9,7 +9,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Language.Haskell.Brittany.Internal.Types import Language.Haskell.Brittany.Internal.LayouterBasics diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs index 14be015..30867aa 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs @@ -7,7 +7,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Language.Haskell.Brittany.Internal.Types import Language.Haskell.Brittany.Internal.LayouterBasics diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs-boot b/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs-boot index 5fa795b..94f0d3c 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs-boot +++ b/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs-boot @@ -7,7 +7,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Language.Haskell.Brittany.Internal.Types import Language.Haskell.Brittany.Internal.LayouterBasics diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Type.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Type.hs index 3d340ba..aac5453 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/Type.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/Type.hs @@ -9,7 +9,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Language.Haskell.Brittany.Internal.Config.Types import Language.Haskell.Brittany.Internal.Types diff --git a/src/Language/Haskell/Brittany/Internal/Obfuscation.hs b/src/Language/Haskell/Brittany/Internal/Obfuscation.hs index 5bdcfa8..7aa2ed6 100644 --- a/src/Language/Haskell/Brittany/Internal/Obfuscation.hs +++ b/src/Language/Haskell/Brittany/Internal/Obfuscation.hs @@ -5,7 +5,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Data.Char import System.Random diff --git a/src/Language/Haskell/Brittany/Internal/Transformations/Alt.hs b/src/Language/Haskell/Brittany/Internal/Transformations/Alt.hs index d186564..7e5677b 100644 --- a/src/Language/Haskell/Brittany/Internal/Transformations/Alt.hs +++ b/src/Language/Haskell/Brittany/Internal/Transformations/Alt.hs @@ -9,7 +9,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Data.HList.ContainsType diff --git a/src/Language/Haskell/Brittany/Internal/Transformations/Columns.hs b/src/Language/Haskell/Brittany/Internal/Transformations/Columns.hs index d652dda..f10853d 100644 --- a/src/Language/Haskell/Brittany/Internal/Transformations/Columns.hs +++ b/src/Language/Haskell/Brittany/Internal/Transformations/Columns.hs @@ -5,7 +5,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Language.Haskell.Brittany.Internal.Utils import Language.Haskell.Brittany.Internal.Config.Types diff --git a/src/Language/Haskell/Brittany/Internal/Transformations/Floating.hs b/src/Language/Haskell/Brittany/Internal/Transformations/Floating.hs index 4bb227b..992d3b0 100644 --- a/src/Language/Haskell/Brittany/Internal/Transformations/Floating.hs +++ b/src/Language/Haskell/Brittany/Internal/Transformations/Floating.hs @@ -5,7 +5,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Language.Haskell.Brittany.Internal.Utils import Language.Haskell.Brittany.Internal.Config.Types diff --git a/src/Language/Haskell/Brittany/Internal/Transformations/Indent.hs b/src/Language/Haskell/Brittany/Internal/Transformations/Indent.hs index b3d7709..f1c43b2 100644 --- a/src/Language/Haskell/Brittany/Internal/Transformations/Indent.hs +++ b/src/Language/Haskell/Brittany/Internal/Transformations/Indent.hs @@ -5,7 +5,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Language.Haskell.Brittany.Internal.Utils import Language.Haskell.Brittany.Internal.Config.Types diff --git a/src/Language/Haskell/Brittany/Internal/Transformations/Par.hs b/src/Language/Haskell/Brittany/Internal/Transformations/Par.hs index e048584..f1b3973 100644 --- a/src/Language/Haskell/Brittany/Internal/Transformations/Par.hs +++ b/src/Language/Haskell/Brittany/Internal/Transformations/Par.hs @@ -5,7 +5,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import Language.Haskell.Brittany.Internal.Utils import Language.Haskell.Brittany.Internal.Config.Types diff --git a/src/Language/Haskell/Brittany/Internal/Types.hs b/src/Language/Haskell/Brittany/Internal/Types.hs index d24907a..f04d2a6 100644 --- a/src/Language/Haskell/Brittany/Internal/Types.hs +++ b/src/Language/Haskell/Brittany/Internal/Types.hs @@ -10,7 +10,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import qualified Language.Haskell.GHC.ExactPrint as ExactPrint import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint.Types diff --git a/src/Language/Haskell/Brittany/Internal/Utils.hs b/src/Language/Haskell/Brittany/Internal/Utils.hs index ea2b4ac..43f9382 100644 --- a/src/Language/Haskell/Brittany/Internal/Utils.hs +++ b/src/Language/Haskell/Brittany/Internal/Utils.hs @@ -32,7 +32,51 @@ where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass import qualified Language.Haskell.GHC.ExactPrint as ExactPrint import qualified Language.Haskell.GHC.ExactPrint.Annotate as ExactPrint.Annotate diff --git a/src/Language/Haskell/Brittany/Main.hs b/src/Language/Haskell/Brittany/Main.hs index a84d882..354c2ce 100644 --- a/src/Language/Haskell/Brittany/Main.hs +++ b/src/Language/Haskell/Brittany/Main.hs @@ -4,7 +4,51 @@ module Language.Haskell.Brittany.Main (main) where -#include "prelude.inc" +import Language.Haskell.Brittany.Internal.Prelude +import Language.Haskell.Brittany.Internal.PreludeUtils +import qualified Control.Monad.Reader.Class as Reader.Class +import qualified Control.Monad.RWS.Class as RWS.Class +import qualified Control.Monad.State.Class as State.Class +import qualified Control.Monad.Trans.Except as ExceptT +import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL +import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS +import qualified Control.Monad.Trans.State as State +import qualified Control.Monad.Trans.State.Lazy as StateL +import qualified Control.Monad.Trans.State.Strict as StateS +import qualified Control.Monad.Writer.Class as Writer.Class +import qualified Data.Bool as Bool +import qualified Data.ByteString +import qualified Data.ByteString as ByteString +import qualified Data.ByteString.Char8 +import qualified Data.ByteString.Lazy as ByteStringL +import qualified Data.Coerce +import qualified Data.Data +import qualified Data.Either +import qualified Data.Foldable +import qualified Data.Foldable as Foldable +import qualified Data.IntMap.Lazy as IntMapL +import qualified Data.IntMap.Strict as IntMapS +import qualified Data.List.Extra +import qualified Data.Map as Map +import qualified Data.Maybe +import qualified Data.Semigroup as Semigroup +import qualified Data.Sequence as Seq +import qualified Data.Set as Set +import qualified Data.Strict.Maybe as Strict +import qualified Data.Text as Text +import qualified Data.Text.Encoding as Text.Encoding +import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy as TextL +import qualified Data.Text.Lazy.Encoding as TextL.Encoding +import qualified Data.Text.Lazy.IO as TextL.IO +import qualified GHC.OldList as List +import qualified Safe as Safe +import qualified System.Directory +import qualified System.IO +import qualified Text.PrettyPrint +import qualified Text.PrettyPrint.Annotated +import qualified Text.PrettyPrint.Annotated.HughesPJ +import qualified Text.PrettyPrint.Annotated.HughesPJClass -- brittany { lconfig_importAsColumn: 60, lconfig_importColumn: 60 } import qualified Language.Haskell.GHC.ExactPrint as ExactPrint diff --git a/srcinc/prelude.inc b/srcinc/prelude.inc deleted file mode 100644 index 81ca53a..0000000 --- a/srcinc/prelude.inc +++ /dev/null @@ -1,147 +0,0 @@ -import qualified Data.ByteString --- import qualified Data.ByteString.Builder --- import qualified Data.ByteString.Builder.Extra --- import qualified Data.ByteString.Builder.Prim -import qualified Data.ByteString.Char8 --- import qualified Data.ByteString.Lazy.Builder --- import qualified Data.ByteString.Lazy.Builder.ASCII --- import qualified Data.ByteString.Lazy.Builder.Extras --- import qualified Data.ByteString.Lazy.Char8 --- import qualified Data.ByteString.Lazy --- import qualified Data.ByteString.Short --- import qualified Data.ByteString.Unsafe - --- import qualified Data.Graph --- import qualified Data.IntMap --- import qualified Data.IntMap.Lazy --- import qualified Data.IntMap.Strict --- import qualified Data.IntSet --- import qualified Data.Map --- import qualified Data.Map.Lazy --- import qualified Data.Map.Strict --- import qualified Data.Sequence --- import qualified Data.Set --- import qualified Data.Tree - -import qualified System.Directory - --- import qualified Control.Concurrent.Extra --- import qualified Control.Exception.Extra --- import qualified Control.Monad.Extra --- import qualified Data.Either.Extra --- import qualified Data.IORef.Extra -import qualified Data.List.Extra --- import qualified Data.Tuple.Extra --- import qualified Data.Version.Extra --- import qualified Numeric.Extra --- import qualified System.Directory.Extra --- import qualified System.Environment.Extra --- import qualified System.IO.Extra --- import qualified System.Info.Extra --- import qualified System.Process.Extra --- import qualified System.Time.Extra - --- import qualified Control.Monad.Trans.MultiRWS.Lazy --- import qualified Control.Monad.Trans.MultiRWS.Strict --- import qualified Control.Monad.Trans.MultiReader --- import qualified Control.Monad.Trans.MultiReader.Class --- import qualified Control.Monad.Trans.MultiReader.Lazy --- import qualified Control.Monad.Trans.MultiReader.Strict --- import qualified Control.Monad.Trans.MultiState --- import qualified Control.Monad.Trans.MultiState.Class --- import qualified Control.Monad.Trans.MultiState.Lazy --- import qualified Control.Monad.Trans.MultiState.Strict --- import qualified Control.Monad.Trans.MultiWriter --- import qualified Control.Monad.Trans.MultiWriter.Class --- import qualified Control.Monad.Trans.MultiWriter.Lazy --- import qualified Control.Monad.Trans.MultiWriter.Strict - -import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS -import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL - -import qualified Text.PrettyPrint - -import qualified Text.PrettyPrint.Annotated -import qualified Text.PrettyPrint.Annotated.HughesPJ -import qualified Text.PrettyPrint.Annotated.HughesPJClass - --- import qualified Text.PrettyPrint.HughesPJ --- import qualified Text.PrettyPrint.HughesPJClass - --- import qualified Data.Text --- import qualified Data.Text.Array --- import qualified Data.Text.Encoding --- import qualified Data.Text.Encoding.Error --- import qualified Data.Text.Foreign --- import qualified Data.Text.IO --- import qualified Data.Text.Lazy --- import qualified Data.Text.Lazy.Builder - --- import qualified Data.Bifunctor --- import qualified Data.Bits --- import qualified Data.Bool --- import qualified Data.Char -import qualified Data.Coerce --- import qualified Data.Complex -import qualified Data.Data --- import qualified Data.Dynamic -import qualified Data.Either --- import qualified Data.Eq --- import qualified Data.Fixed -import qualified Data.Foldable --- import qualified Data.Function --- import qualified Data.Functor --- import qualified Data.Functor.Identity --- import qualified Data.IORef --- import qualified Data.Int --- import qualified Data.Ix --- import qualified Data.List -import qualified Data.Maybe --- import qualified Data.Monoid --- import qualified Data.Ord --- import qualified Data.Proxy --- import qualified Debug.Trace --- import qualified Numeric --- import qualified Numeric.Natural -import qualified System.IO --- import qualified Unsafe.Coerce - -import qualified Data.Bool as Bool -import qualified Data.Foldable as Foldable -import qualified GHC.OldList as List - -import qualified Data.Semigroup as Semigroup - -import qualified Data.ByteString as ByteString -import qualified Data.ByteString.Lazy as ByteStringL - -import qualified Data.IntMap.Lazy as IntMapL -import qualified Data.IntMap.Strict as IntMapS -import qualified Data.Map as Map -import qualified Data.Sequence as Seq -import qualified Data.Set as Set - -import qualified Control.Monad.RWS.Class as RWS.Class -import qualified Control.Monad.Reader.Class as Reader.Class -import qualified Control.Monad.State.Class as State.Class -import qualified Control.Monad.Writer.Class as Writer.Class - -import qualified Data.Text as Text -import qualified Data.Text.Encoding as Text.Encoding -import qualified Data.Text.IO as Text.IO -import qualified Data.Text.Lazy as TextL -import qualified Data.Text.Lazy.Encoding as TextL.Encoding -import qualified Data.Text.Lazy.IO as TextL.IO - -import qualified Control.Monad.Trans.State as State -import qualified Control.Monad.Trans.State.Lazy as StateL -import qualified Control.Monad.Trans.State.Strict as StateS -import qualified Control.Monad.Trans.Except as ExceptT - -import qualified Data.Strict.Maybe as Strict - -import qualified Safe as Safe - - -import Language.Haskell.Brittany.Internal.Prelude -import Language.Haskell.Brittany.Internal.PreludeUtils