hexagoxel
/
brittany
1
0
Fork 0
Code Issues 117 Pull Requests 5 Packages Projects Releases 5 Wiki Activity

Remove `Language.Haskell.` from module names

remotes/mxxun/master
Taylor Fausak 2021-11-29 12:25:00 +00:00 committed by GitHub
parent 6151ba5825
commit 2fe1432631
35 changed files with 213 additions and 213 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
brittany.cabal
View File

@ -101,36 +101,36 @@ library
autogen-modules: Paths_brittany
hs-source-dirs: source/library
exposed-modules:
Language.Haskell.Brittany
Language.Haskell.Brittany.Internal
Language.Haskell.Brittany.Internal.Backend
Language.Haskell.Brittany.Internal.BackendUtils
Language.Haskell.Brittany.Internal.Config
Language.Haskell.Brittany.Internal.Config.Types
Language.Haskell.Brittany.Internal.Config.Types.Instances
Language.Haskell.Brittany.Internal.ExactPrintUtils
Language.Haskell.Brittany.Internal.LayouterBasics
Language.Haskell.Brittany.Internal.Layouters.DataDecl
Language.Haskell.Brittany.Internal.Layouters.Decl
Language.Haskell.Brittany.Internal.Layouters.Expr
Language.Haskell.Brittany.Internal.Layouters.IE
Language.Haskell.Brittany.Internal.Layouters.Import
Language.Haskell.Brittany.Internal.Layouters.Module
Language.Haskell.Brittany.Internal.Layouters.Pattern
Language.Haskell.Brittany.Internal.Layouters.Stmt
Language.Haskell.Brittany.Internal.Layouters.Type
Language.Haskell.Brittany.Internal.Obfuscation
Language.Haskell.Brittany.Internal.ParseModule
Language.Haskell.Brittany.Internal.Prelude
Language.Haskell.Brittany.Internal.PreludeUtils
Language.Haskell.Brittany.Internal.Transformations.Alt
Language.Haskell.Brittany.Internal.Transformations.Columns
Language.Haskell.Brittany.Internal.Transformations.Floating
Language.Haskell.Brittany.Internal.Transformations.Indent
Language.Haskell.Brittany.Internal.Transformations.Par
Language.Haskell.Brittany.Internal.Types
Language.Haskell.Brittany.Internal.Utils
Language.Haskell.Brittany.Main
Brittany
Brittany.Internal
Brittany.Internal.Backend
Brittany.Internal.BackendUtils
Brittany.Internal.Config
Brittany.Internal.Config.Types
Brittany.Internal.Config.Types.Instances
Brittany.Internal.ExactPrintUtils
Brittany.Internal.LayouterBasics
Brittany.Internal.Layouters.DataDecl
Brittany.Internal.Layouters.Decl
Brittany.Internal.Layouters.Expr
Brittany.Internal.Layouters.IE
Brittany.Internal.Layouters.Import
Brittany.Internal.Layouters.Module
Brittany.Internal.Layouters.Pattern
Brittany.Internal.Layouters.Stmt
Brittany.Internal.Layouters.Type
Brittany.Internal.Obfuscation
Brittany.Internal.ParseModule
Brittany.Internal.Prelude
Brittany.Internal.PreludeUtils
Brittany.Internal.Transformations.Alt
Brittany.Internal.Transformations.Columns
Brittany.Internal.Transformations.Floating
Brittany.Internal.Transformations.Indent
Brittany.Internal.Transformations.Par
Brittany.Internal.Types
Brittany.Internal.Utils
Brittany.Main
Paths_brittany
executable brittany

2
source/executable/Main.hs
View File

@ -1,4 +1,4 @@
import qualified Language.Haskell.Brittany.Main as BrittanyMain
import qualified Brittany.Main as BrittanyMain
main :: IO ()
main = BrittanyMain.main

10
source/library/Language/Haskell/Brittany.hs → source/library/Brittany.hs
View File

@ -1,6 +1,6 @@
{-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany
module Brittany
( parsePrintModule
, staticDefaultConfig
, forwardOptionsSyntaxExtsEnabled
@ -18,7 +18,7 @@ module Language.Haskell.Brittany
, BrittanyError(..)
) where
import Language.Haskell.Brittany.Internal
import Language.Haskell.Brittany.Internal.Config
import Language.Haskell.Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.Types
import Brittany.Internal
import Brittany.Internal.Config
import Brittany.Internal.Config.Types
import Brittany.Internal.Types

36
source/library/Language/Haskell/Brittany/Internal.hs → source/library/Brittany/Internal.hs
View File

@ -2,7 +2,7 @@
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE ScopedTypeVariables #-}
module Language.Haskell.Brittany.Internal
module Brittany.Internal
( parsePrintModule
, parsePrintModuleTests
, pPrintModule
@ -36,23 +36,23 @@ import qualified GHC.LanguageExtensions.Type as GHC
import qualified GHC.OldList as List
import GHC.Parser.Annotation (AnnKeywordId(..))
import GHC.Types.SrcLoc (SrcSpan)
import Language.Haskell.Brittany.Internal.Backend
import Language.Haskell.Brittany.Internal.BackendUtils
import Language.Haskell.Brittany.Internal.Config
import Language.Haskell.Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.ExactPrintUtils
import Language.Haskell.Brittany.Internal.LayouterBasics
import Language.Haskell.Brittany.Internal.Layouters.Decl
import Language.Haskell.Brittany.Internal.Layouters.Module
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Transformations.Alt
import Language.Haskell.Brittany.Internal.Transformations.Columns
import Language.Haskell.Brittany.Internal.Transformations.Floating
import Language.Haskell.Brittany.Internal.Transformations.Indent
import Language.Haskell.Brittany.Internal.Transformations.Par
import Language.Haskell.Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Utils
import Brittany.Internal.Backend
import Brittany.Internal.BackendUtils
import Brittany.Internal.Config
import Brittany.Internal.Config.Types
import Brittany.Internal.ExactPrintUtils
import Brittany.Internal.LayouterBasics
import Brittany.Internal.Layouters.Decl
import Brittany.Internal.Layouters.Module
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Brittany.Internal.Transformations.Alt
import Brittany.Internal.Transformations.Columns
import Brittany.Internal.Transformations.Floating
import Brittany.Internal.Transformations.Indent
import Brittany.Internal.Transformations.Par
import Brittany.Internal.Types
import Brittany.Internal.Utils
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint
import qualified UI.Butcher.Monadic as Butcher

16
source/library/Language/Haskell/Brittany/Internal/Backend.hs → source/library/Brittany/Internal/Backend.hs
View File

@ -4,7 +4,7 @@
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE ScopedTypeVariables #-}
module Language.Haskell.Brittany.Internal.Backend where
module Brittany.Internal.Backend where
import qualified Control.Monad.Trans.State.Strict as StateS
import qualified Data.Either as Either
@ -19,13 +19,13 @@ import qualified Data.Set as Set
import qualified Data.Text as Text
import qualified Data.Text.Lazy.Builder as Text.Builder
import qualified GHC.OldList as List
import Language.Haskell.Brittany.Internal.BackendUtils
import Language.Haskell.Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.LayouterBasics
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Utils
import Brittany.Internal.BackendUtils
import Brittany.Internal.Config.Types
import Brittany.Internal.LayouterBasics
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Brittany.Internal.Types
import Brittany.Internal.Utils
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint.Types

12
source/library/Language/Haskell/Brittany/Internal/BackendUtils.hs → source/library/Brittany/Internal/BackendUtils.hs
View File

@ -1,7 +1,7 @@
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.BackendUtils where
module Brittany.Internal.BackendUtils where
import qualified Data.Data
import qualified Data.Either
@ -12,11 +12,11 @@ import qualified Data.Text as Text
import qualified Data.Text.Lazy.Builder as Text.Builder
import GHC (Located)
import qualified GHC.OldList as List
import Language.Haskell.Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Utils
import Brittany.Internal.Config.Types
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Brittany.Internal.Types
import Brittany.Internal.Utils
import Language.Haskell.GHC.ExactPrint.Types (AnnKey, Annotation)
import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint

12
source/library/Language/Haskell/Brittany/Internal/Config.hs → source/library/Brittany/Internal/Config.hs
View File

@ -1,7 +1,7 @@
{-# LANGUAGE MonadComprehensions #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Config where
module Brittany.Internal.Config where
import qualified Data.Bool as Bool
import qualified Data.ByteString as ByteString
@ -12,11 +12,11 @@ import qualified Data.List.NonEmpty as NonEmpty
import qualified Data.Semigroup as Semigroup
import qualified Data.Yaml
import qualified GHC.OldList as List
import Language.Haskell.Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.Config.Types.Instances ()
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Utils
import Brittany.Internal.Config.Types
import Brittany.Internal.Config.Types.Instances ()
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Brittany.Internal.Utils
import qualified System.Console.CmdArgs.Explicit as CmdArgs
import qualified System.Directory
import qualified System.Directory as Directory

6
source/library/Language/Haskell/Brittany/Internal/Config/Types.hs → source/library/Brittany/Internal/Config/Types.hs
View File

@ -5,7 +5,7 @@
{-# LANGUAGE StandaloneDeriving #-}
{-# LANGUAGE TemplateHaskell #-}
module Language.Haskell.Brittany.Internal.Config.Types where
module Brittany.Internal.Config.Types where
import Data.CZipWith
import Data.Coerce (Coercible, coerce)
@ -14,8 +14,8 @@ import qualified Data.Semigroup as Semigroup
import Data.Semigroup (Last)
import Data.Semigroup.Generic
import GHC.Generics
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils ()
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils ()

6
source/library/Language/Haskell/Brittany/Internal/Config/Types/Instances.hs → source/library/Brittany/Internal/Config/Types/Instances.hs
View File

@ -16,13 +16,13 @@
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Config.Types.Instances where
module Brittany.Internal.Config.Types.Instances where
import qualified Data.Aeson.Key as Key
import qualified Data.Aeson.Types as Aeson
import Data.Yaml
import Language.Haskell.Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.Config.Types
import Brittany.Internal.Prelude

10
source/library/Language/Haskell/Brittany/Internal/ExactPrintUtils.hs → source/library/Brittany/Internal/ExactPrintUtils.hs
View File

@ -5,7 +5,7 @@
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE ScopedTypeVariables #-}
module Language.Haskell.Brittany.Internal.ExactPrintUtils where
module Brittany.Internal.ExactPrintUtils where
import qualified Control.Monad.State.Class as State.Class
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
@ -23,10 +23,10 @@ import qualified GHC.Driver.CmdLine as GHC
import GHC.Hs
import qualified GHC.Types.SrcLoc as GHC
import GHC.Types.SrcLoc (Located, SrcSpan)
import Language.Haskell.Brittany.Internal.Config.Types
import qualified Language.Haskell.Brittany.Internal.ParseModule as ParseModule
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils
import Brittany.Internal.Config.Types
import qualified Brittany.Internal.ParseModule as ParseModule
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint
import qualified System.IO

14
source/library/Language/Haskell/Brittany/Internal/LayouterBasics.hs → source/library/Brittany/Internal/LayouterBasics.hs
View File

@ -4,7 +4,7 @@
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.LayouterBasics where
module Brittany.Internal.LayouterBasics where
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
import qualified Control.Monad.Writer.Strict as Writer
@ -24,12 +24,12 @@ import GHC.Types.Name (getOccString)
import GHC.Types.Name.Occurrence (occNameString)
import GHC.Types.Name.Reader (RdrName(..))
import qualified GHC.Types.SrcLoc as GHC
import Language.Haskell.Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.ExactPrintUtils
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Utils
import Brittany.Internal.Config.Types
import Brittany.Internal.ExactPrintUtils
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Brittany.Internal.Types
import Brittany.Internal.Utils
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
import qualified Language.Haskell.GHC.ExactPrint.Annotate as ExactPrint.Annotate
import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint.Types

14
source/library/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs → source/library/Brittany/Internal/Layouters/DataDecl.hs
View File

@ -1,7 +1,7 @@
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Layouters.DataDecl where
module Brittany.Internal.Layouters.DataDecl where
import qualified Data.Data
import qualified Data.Semigroup as Semigroup
@ -10,12 +10,12 @@ import GHC (GenLocated(L), Located)
import qualified GHC
import GHC.Hs
import qualified GHC.OldList as List
import Language.Haskell.Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.LayouterBasics
import Language.Haskell.Brittany.Internal.Layouters.Type
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types
import Brittany.Internal.Config.Types
import Brittany.Internal.LayouterBasics
import Brittany.Internal.Layouters.Type
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Brittany.Internal.Types

24
source/library/Language/Haskell/Brittany/Internal/Layouters/Decl.hs → source/library/Brittany/Internal/Layouters/Decl.hs
View File

@ -3,7 +3,7 @@
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE ScopedTypeVariables #-}
module Language.Haskell.Brittany.Internal.Layouters.Decl where
module Brittany.Internal.Layouters.Decl where
import qualified Data.Data
import qualified Data.Foldable
@ -23,17 +23,17 @@ import GHC.Types.Basic
, RuleMatchInfo(..)
)
import GHC.Types.SrcLoc (Located, SrcSpan, getLoc, unLoc)
import Language.Haskell.Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.ExactPrintUtils
import Language.Haskell.Brittany.Internal.LayouterBasics
import Language.Haskell.Brittany.Internal.Layouters.DataDecl
import {-# SOURCE #-} Language.Haskell.Brittany.Internal.Layouters.Expr
import Language.Haskell.Brittany.Internal.Layouters.Pattern
import {-# SOURCE #-} Language.Haskell.Brittany.Internal.Layouters.Stmt
import Language.Haskell.Brittany.Internal.Layouters.Type
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types
import Brittany.Internal.Config.Types
import Brittany.Internal.ExactPrintUtils
import Brittany.Internal.LayouterBasics
import Brittany.Internal.Layouters.DataDecl
import {-# SOURCE #-} Brittany.Internal.Layouters.Expr
import Brittany.Internal.Layouters.Pattern
import {-# SOURCE #-} Brittany.Internal.Layouters.Stmt
import Brittany.Internal.Layouters.Type
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Brittany.Internal.Types
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
import Language.Haskell.GHC.ExactPrint.Types (mkAnnKey)
import qualified Language.Haskell.GHC.ExactPrint.Utils as ExactPrint

22
source/library/Language/Haskell/Brittany/Internal/Layouters/Expr.hs → source/library/Brittany/Internal/Layouters/Expr.hs
View File

@ -2,7 +2,7 @@
{-# LANGUAGE MonadComprehensions #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Layouters.Expr where
module Brittany.Internal.Layouters.Expr where
import qualified Data.Data
import qualified Data.Semigroup as Semigroup
@ -14,16 +14,16 @@ import GHC.Hs
import qualified GHC.OldList as List
import GHC.Types.Basic
import GHC.Types.Name
import Language.Haskell.Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.LayouterBasics
import Language.Haskell.Brittany.Internal.Layouters.Decl
import Language.Haskell.Brittany.Internal.Layouters.Pattern
import Language.Haskell.Brittany.Internal.Layouters.Stmt
import Language.Haskell.Brittany.Internal.Layouters.Type
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Utils
import Brittany.Internal.Config.Types
import Brittany.Internal.LayouterBasics
import Brittany.Internal.Layouters.Decl
import Brittany.Internal.Layouters.Pattern
import Brittany.Internal.Layouters.Stmt
import Brittany.Internal.Layouters.Type
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Brittany.Internal.Types
import Brittany.Internal.Utils

4
source/library/Language/Haskell/Brittany/Internal/Layouters/Expr.hs-boot → source/library/Brittany/Internal/Layouters/Expr.hs-boot
View File

@ -1,9 +1,9 @@
{-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Layouters.Expr where
module Brittany.Internal.Layouters.Expr where
import GHC.Hs
import Language.Haskell.Brittany.Internal.Types
import Brittany.Internal.Types

10
source/library/Language/Haskell/Brittany/Internal/Layouters/IE.hs → source/library/Brittany/Internal/Layouters/IE.hs
View File

@ -2,7 +2,7 @@
{-# LANGUAGE MultiWayIf #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Layouters.IE where
module Brittany.Internal.Layouters.IE where
import qualified Data.List.Extra
import qualified Data.Text as Text
@ -16,10 +16,10 @@ import GHC
)
import GHC.Hs
import qualified GHC.OldList as List
import Language.Haskell.Brittany.Internal.LayouterBasics
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Utils
import Brittany.Internal.LayouterBasics
import Brittany.Internal.Prelude
import Brittany.Internal.Types
import Brittany.Internal.Utils

14
source/library/Language/Haskell/Brittany/Internal/Layouters/Import.hs → source/library/Brittany/Internal/Layouters/Import.hs
View File

@ -1,6 +1,6 @@
{-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Layouters.Import where
module Brittany.Internal.Layouters.Import where
import qualified Data.Semigroup as Semigroup
import qualified Data.Text as Text
@ -8,12 +8,12 @@ import GHC (GenLocated(L), Located, moduleNameString, unLoc)
import GHC.Hs
import GHC.Types.Basic
import GHC.Unit.Types (IsBootInterface(..))
import Language.Haskell.Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.LayouterBasics
import Language.Haskell.Brittany.Internal.Layouters.IE
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types
import Brittany.Internal.Config.Types
import Brittany.Internal.LayouterBasics
import Brittany.Internal.Layouters.IE
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Brittany.Internal.Types

16
source/library/Language/Haskell/Brittany/Internal/Layouters/Module.hs → source/library/Brittany/Internal/Layouters/Module.hs
View File

@ -1,7 +1,7 @@
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Layouters.Module where
module Brittany.Internal.Layouters.Module where
import qualified Data.Maybe
import qualified Data.Semigroup as Semigroup
@ -9,13 +9,13 @@ import qualified Data.Text as Text
import GHC (AnnKeywordId(..), GenLocated(L), moduleNameString, unLoc)
import GHC.Hs
import qualified GHC.OldList as List
import Language.Haskell.Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.LayouterBasics
import Language.Haskell.Brittany.Internal.Layouters.IE
import Language.Haskell.Brittany.Internal.Layouters.Import
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types
import Brittany.Internal.Config.Types
import Brittany.Internal.LayouterBasics
import Brittany.Internal.Layouters.IE
import Brittany.Internal.Layouters.Import
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Brittany.Internal.Types
import Language.Haskell.GHC.ExactPrint as ExactPrint
import Language.Haskell.GHC.ExactPrint.Types
(DeltaPos(..), commentContents, deltaRow)

14
source/library/Language/Haskell/Brittany/Internal/Layouters/Pattern.hs → source/library/Brittany/Internal/Layouters/Pattern.hs
View File

@ -1,7 +1,7 @@
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Layouters.Pattern where
module Brittany.Internal.Layouters.Pattern where
import qualified Data.Foldable as Foldable
import qualified Data.Sequence as Seq
@ -10,12 +10,12 @@ import GHC (GenLocated(L), ol_val)
import GHC.Hs
import qualified GHC.OldList as List
import GHC.Types.Basic
import Language.Haskell.Brittany.Internal.LayouterBasics
import {-# SOURCE #-} Language.Haskell.Brittany.Internal.Layouters.Expr
import Language.Haskell.Brittany.Internal.Layouters.Type
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types
import Brittany.Internal.LayouterBasics
import {-# SOURCE #-} Brittany.Internal.Layouters.Expr
import Brittany.Internal.Layouters.Type
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Brittany.Internal.Types

18
source/library/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs → source/library/Brittany/Internal/Layouters/Stmt.hs
View File

@ -2,20 +2,20 @@
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE ScopedTypeVariables #-}
module Language.Haskell.Brittany.Internal.Layouters.Stmt where
module Brittany.Internal.Layouters.Stmt where
import qualified Data.Semigroup as Semigroup
import qualified Data.Text as Text
import GHC (GenLocated(L))
import GHC.Hs
import Language.Haskell.Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.LayouterBasics
import Language.Haskell.Brittany.Internal.Layouters.Decl
import {-# SOURCE #-} Language.Haskell.Brittany.Internal.Layouters.Expr
import Language.Haskell.Brittany.Internal.Layouters.Pattern
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types
import Brittany.Internal.Config.Types
import Brittany.Internal.LayouterBasics
import Brittany.Internal.Layouters.Decl
import {-# SOURCE #-} Brittany.Internal.Layouters.Expr
import Brittany.Internal.Layouters.Pattern
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Brittany.Internal.Types

4
source/library/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs-boot → source/library/Brittany/Internal/Layouters/Stmt.hs-boot
View File

@ -1,9 +1,9 @@
{-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Layouters.Stmt where
module Brittany.Internal.Layouters.Stmt where
import GHC.Hs
import Language.Haskell.Brittany.Internal.Types
import Brittany.Internal.Types

12
source/library/Language/Haskell/Brittany/Internal/Layouters/Type.hs → source/library/Brittany/Internal/Layouters/Type.hs
View File

@ -1,7 +1,7 @@
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Layouters.Type where
module Brittany.Internal.Layouters.Type where
import qualified Data.Text as Text
import GHC (AnnKeywordId(..), GenLocated(L))
@ -9,11 +9,11 @@ import GHC.Hs
import qualified GHC.OldList as List
import GHC.Types.Basic
import GHC.Utils.Outputable (ftext, showSDocUnsafe)
import Language.Haskell.Brittany.Internal.LayouterBasics
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Utils
import Brittany.Internal.LayouterBasics
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Brittany.Internal.Types
import Brittany.Internal.Utils
(FirstLastView(..), splitFirstLast)

6
source/library/Language/Haskell/Brittany/Internal/Obfuscation.hs → source/library/Brittany/Internal/Obfuscation.hs
View File

@ -1,14 +1,14 @@
{-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Obfuscation where
module Brittany.Internal.Obfuscation where
import Data.Char
import qualified Data.Map as Map
import qualified Data.Set as Set
import qualified Data.Text as Text
import qualified GHC.OldList as List
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import System.Random

2
source/library/Language/Haskell/Brittany/Internal/ParseModule.hs → source/library/Brittany/Internal/ParseModule.hs
View File

@ -1,6 +1,6 @@
{-# OPTIONS_GHC -Wno-implicit-prelude #-}
module Language.Haskell.Brittany.Internal.ParseModule where
module Brittany.Internal.ParseModule where
import qualified Control.Monad as Monad
import qualified Control.Monad.IO.Class as IO

2
source/library/Language/Haskell/Brittany/Internal/Prelude.hs → source/library/Brittany/Internal/Prelude.hs
View File

@ -1,4 +1,4 @@
module Language.Haskell.Brittany.Internal.Prelude
module Brittany.Internal.Prelude
( module E
) where

2
source/library/Language/Haskell/Brittany/Internal/PreludeUtils.hs → source/library/Brittany/Internal/PreludeUtils.hs
View File

@ -1,6 +1,6 @@
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Language.Haskell.Brittany.Internal.PreludeUtils where
module Brittany.Internal.PreludeUtils where
import Control.Applicative
import Control.DeepSeq (NFData, force)

12
source/library/Language/Haskell/Brittany/Internal/Transformations/Alt.hs → source/library/Brittany/Internal/Transformations/Alt.hs
View File

@ -7,7 +7,7 @@
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TypeOperators #-}
module Language.Haskell.Brittany.Internal.Transformations.Alt where
module Brittany.Internal.Transformations.Alt where
import qualified Control.Monad.Memo as Memo
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
@ -16,11 +16,11 @@ import qualified Data.List.Extra
import qualified Data.Semigroup as Semigroup
import qualified Data.Text as Text
import qualified GHC.OldList as List
import Language.Haskell.Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Utils
import Brittany.Internal.Config.Types
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Brittany.Internal.Types
import Brittany.Internal.Utils

6
source/library/Language/Haskell/Brittany/Internal/Transformations/Columns.hs → source/library/Brittany/Internal/Transformations/Columns.hs
View File

@ -1,12 +1,12 @@
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Transformations.Columns where
module Brittany.Internal.Transformations.Columns where
import qualified Data.Generics.Uniplate.Direct as Uniplate
import qualified GHC.OldList as List
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.Types
import Brittany.Internal.Prelude
import Brittany.Internal.Types

10
source/library/Language/Haskell/Brittany/Internal/Transformations/Floating.hs → source/library/Brittany/Internal/Transformations/Floating.hs
View File

@ -1,14 +1,14 @@
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Transformations.Floating where
module Brittany.Internal.Transformations.Floating where
import qualified Data.Generics.Uniplate.Direct as Uniplate
import qualified GHC.OldList as List
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Utils
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Brittany.Internal.Types
import Brittany.Internal.Utils

6
source/library/Language/Haskell/Brittany/Internal/Transformations/Indent.hs → source/library/Brittany/Internal/Transformations/Indent.hs
View File

@ -1,12 +1,12 @@
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Transformations.Indent where
module Brittany.Internal.Transformations.Indent where
import qualified Data.Generics.Uniplate.Direct as Uniplate
import qualified GHC.OldList as List
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.Types
import Brittany.Internal.Prelude
import Brittany.Internal.Types

8
source/library/Language/Haskell/Brittany/Internal/Transformations/Par.hs → source/library/Brittany/Internal/Transformations/Par.hs
View File

@ -1,11 +1,11 @@
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Transformations.Par where
module Brittany.Internal.Transformations.Par where
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Utils
import Brittany.Internal.Prelude
import Brittany.Internal.Types
import Brittany.Internal.Utils

6
source/library/Language/Haskell/Brittany/Internal/Types.hs → source/library/Brittany/Internal/Types.hs
View File

@ -10,7 +10,7 @@
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE StandaloneDeriving #-}
module Language.Haskell.Brittany.Internal.Types where
module Brittany.Internal.Types where
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
import qualified Data.Data
@ -19,8 +19,8 @@ import qualified Data.Kind as Kind
import qualified Data.Strict.Maybe as Strict
import qualified Data.Text.Lazy.Builder as Text.Builder
import GHC (AnnKeywordId, GenLocated, Located, SrcSpan)
import Language.Haskell.Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.Config.Types
import Brittany.Internal.Prelude
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
import Language.Haskell.GHC.ExactPrint (AnnKey)
import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint.Types

10
source/library/Language/Haskell/Brittany/Internal/Utils.hs → source/library/Brittany/Internal/Utils.hs
View File

@ -5,7 +5,7 @@
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE ScopedTypeVariables #-}
module Language.Haskell.Brittany.Internal.Utils where
module Brittany.Internal.Utils where
import qualified Data.ByteString as B
import qualified Data.Coerce
@ -22,10 +22,10 @@ import qualified GHC.OldList as List
import GHC.Types.Name.Occurrence as OccName (occNameString)
import qualified GHC.Types.SrcLoc as GHC
import qualified GHC.Utils.Outputable as GHC
import Language.Haskell.Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types
import Brittany.Internal.Config.Types
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Brittany.Internal.Types
import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint.Types
import qualified Language.Haskell.GHC.ExactPrint.Utils as ExactPrint.Utils
import qualified Text.PrettyPrint as PP

18
source/library/Language/Haskell/Brittany/Main.hs → source/library/Brittany/Main.hs
View File

@ -2,7 +2,7 @@
{-# LANGUAGE MultiWayIf #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Main where
module Brittany.Main where
import Control.Monad (zipWithM)
import qualified Control.Monad.Trans.Except as ExceptT
@ -20,14 +20,14 @@ import qualified GHC.Driver.Session as GHC
import qualified GHC.LanguageExtensions.Type as GHC
import qualified GHC.OldList as List
import GHC.Utils.Outputable (Outputable(..), showSDocUnsafe)
import Language.Haskell.Brittany.Internal
import Language.Haskell.Brittany.Internal.Config
import Language.Haskell.Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.Obfuscation
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Utils
import Brittany.Internal
import Brittany.Internal.Config
import Brittany.Internal.Config.Types
import Brittany.Internal.Obfuscation
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Brittany.Internal.Types
import Brittany.Internal.Utils
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
import Paths_brittany
import qualified System.Directory as Directory

2
source/test-suite/Main.hs
View File

@ -1,6 +1,6 @@
import qualified Control.Monad as Monad
import qualified Data.List as List
import qualified Language.Haskell.Brittany.Main as Brittany
import qualified Brittany.Main as Brittany
import qualified System.Directory as Directory
import qualified System.FilePath as FilePath
import qualified Test.Hspec as Hspec