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 autogen-modules: Paths_brittany
hs-source-dirs: source/library hs-source-dirs: source/library
exposed-modules: exposed-modules:
Language.Haskell.Brittany Brittany
Language.Haskell.Brittany.Internal Brittany.Internal
Language.Haskell.Brittany.Internal.Backend Brittany.Internal.Backend
Language.Haskell.Brittany.Internal.BackendUtils Brittany.Internal.BackendUtils
Language.Haskell.Brittany.Internal.Config Brittany.Internal.Config
Language.Haskell.Brittany.Internal.Config.Types Brittany.Internal.Config.Types
Language.Haskell.Brittany.Internal.Config.Types.Instances Brittany.Internal.Config.Types.Instances
Language.Haskell.Brittany.Internal.ExactPrintUtils Brittany.Internal.ExactPrintUtils
Language.Haskell.Brittany.Internal.LayouterBasics Brittany.Internal.LayouterBasics
Language.Haskell.Brittany.Internal.Layouters.DataDecl Brittany.Internal.Layouters.DataDecl
Language.Haskell.Brittany.Internal.Layouters.Decl Brittany.Internal.Layouters.Decl
Language.Haskell.Brittany.Internal.Layouters.Expr Brittany.Internal.Layouters.Expr
Language.Haskell.Brittany.Internal.Layouters.IE Brittany.Internal.Layouters.IE
Language.Haskell.Brittany.Internal.Layouters.Import Brittany.Internal.Layouters.Import
Language.Haskell.Brittany.Internal.Layouters.Module Brittany.Internal.Layouters.Module
Language.Haskell.Brittany.Internal.Layouters.Pattern Brittany.Internal.Layouters.Pattern
Language.Haskell.Brittany.Internal.Layouters.Stmt Brittany.Internal.Layouters.Stmt
Language.Haskell.Brittany.Internal.Layouters.Type Brittany.Internal.Layouters.Type
Language.Haskell.Brittany.Internal.Obfuscation Brittany.Internal.Obfuscation
Language.Haskell.Brittany.Internal.ParseModule Brittany.Internal.ParseModule
Language.Haskell.Brittany.Internal.Prelude Brittany.Internal.Prelude
Language.Haskell.Brittany.Internal.PreludeUtils Brittany.Internal.PreludeUtils
Language.Haskell.Brittany.Internal.Transformations.Alt Brittany.Internal.Transformations.Alt
Language.Haskell.Brittany.Internal.Transformations.Columns Brittany.Internal.Transformations.Columns
Language.Haskell.Brittany.Internal.Transformations.Floating Brittany.Internal.Transformations.Floating
Language.Haskell.Brittany.Internal.Transformations.Indent Brittany.Internal.Transformations.Indent
Language.Haskell.Brittany.Internal.Transformations.Par Brittany.Internal.Transformations.Par
Language.Haskell.Brittany.Internal.Types Brittany.Internal.Types
Language.Haskell.Brittany.Internal.Utils Brittany.Internal.Utils
Language.Haskell.Brittany.Main Brittany.Main
Paths_brittany Paths_brittany
executable 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 :: IO ()
main = BrittanyMain.main main = BrittanyMain.main

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

@ -1,6 +1,6 @@
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany module Brittany
( parsePrintModule ( parsePrintModule
, staticDefaultConfig , staticDefaultConfig
, forwardOptionsSyntaxExtsEnabled , forwardOptionsSyntaxExtsEnabled
@ -18,7 +18,7 @@ module Language.Haskell.Brittany
, BrittanyError(..) , BrittanyError(..)
) where ) where
import Language.Haskell.Brittany.Internal import Brittany.Internal
import Language.Haskell.Brittany.Internal.Config import Brittany.Internal.Config
import Language.Haskell.Brittany.Internal.Config.Types import Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.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 NoImplicitPrelude #-}
{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE ScopedTypeVariables #-}
module Language.Haskell.Brittany.Internal module Brittany.Internal
( parsePrintModule ( parsePrintModule
, parsePrintModuleTests , parsePrintModuleTests
, pPrintModule , pPrintModule
@ -36,23 +36,23 @@ import qualified GHC.LanguageExtensions.Type as GHC
import qualified GHC.OldList as List import qualified GHC.OldList as List
import GHC.Parser.Annotation (AnnKeywordId(..)) import GHC.Parser.Annotation (AnnKeywordId(..))
import GHC.Types.SrcLoc (SrcSpan) import GHC.Types.SrcLoc (SrcSpan)
import Language.Haskell.Brittany.Internal.Backend import Brittany.Internal.Backend
import Language.Haskell.Brittany.Internal.BackendUtils import Brittany.Internal.BackendUtils
import Language.Haskell.Brittany.Internal.Config import Brittany.Internal.Config
import Language.Haskell.Brittany.Internal.Config.Types import Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.ExactPrintUtils import Brittany.Internal.ExactPrintUtils
import Language.Haskell.Brittany.Internal.LayouterBasics import Brittany.Internal.LayouterBasics
import Language.Haskell.Brittany.Internal.Layouters.Decl import Brittany.Internal.Layouters.Decl
import Language.Haskell.Brittany.Internal.Layouters.Module import Brittany.Internal.Layouters.Module
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils import Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Transformations.Alt import Brittany.Internal.Transformations.Alt
import Language.Haskell.Brittany.Internal.Transformations.Columns import Brittany.Internal.Transformations.Columns
import Language.Haskell.Brittany.Internal.Transformations.Floating import Brittany.Internal.Transformations.Floating
import Language.Haskell.Brittany.Internal.Transformations.Indent import Brittany.Internal.Transformations.Indent
import Language.Haskell.Brittany.Internal.Transformations.Par import Brittany.Internal.Transformations.Par
import Language.Haskell.Brittany.Internal.Types import Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Utils import Brittany.Internal.Utils
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint
import qualified UI.Butcher.Monadic as Butcher 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 NoImplicitPrelude #-}
{-# LANGUAGE ScopedTypeVariables #-} {-# 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 Control.Monad.Trans.State.Strict as StateS
import qualified Data.Either as Either 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 as Text
import qualified Data.Text.Lazy.Builder as Text.Builder import qualified Data.Text.Lazy.Builder as Text.Builder
import qualified GHC.OldList as List import qualified GHC.OldList as List
import Language.Haskell.Brittany.Internal.BackendUtils import Brittany.Internal.BackendUtils
import Language.Haskell.Brittany.Internal.Config.Types import Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.LayouterBasics import Brittany.Internal.LayouterBasics
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils import Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types import Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Utils import Brittany.Internal.Utils
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint.Types 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 FlexibleContexts #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.BackendUtils where module Brittany.Internal.BackendUtils where
import qualified Data.Data import qualified Data.Data
import qualified Data.Either import qualified Data.Either
@ -12,11 +12,11 @@ import qualified Data.Text as Text
import qualified Data.Text.Lazy.Builder as Text.Builder import qualified Data.Text.Lazy.Builder as Text.Builder
import GHC (Located) import GHC (Located)
import qualified GHC.OldList as List import qualified GHC.OldList as List
import Language.Haskell.Brittany.Internal.Config.Types import Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils import Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types import Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Utils import Brittany.Internal.Utils
import Language.Haskell.GHC.ExactPrint.Types (AnnKey, Annotation) import Language.Haskell.GHC.ExactPrint.Types (AnnKey, Annotation)
import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint 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 MonadComprehensions #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Config where module Brittany.Internal.Config where
import qualified Data.Bool as Bool import qualified Data.Bool as Bool
import qualified Data.ByteString as ByteString 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.Semigroup as Semigroup
import qualified Data.Yaml import qualified Data.Yaml
import qualified GHC.OldList as List import qualified GHC.OldList as List
import Language.Haskell.Brittany.Internal.Config.Types import Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.Config.Types.Instances () import Brittany.Internal.Config.Types.Instances ()
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils import Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Utils import Brittany.Internal.Utils
import qualified System.Console.CmdArgs.Explicit as CmdArgs import qualified System.Console.CmdArgs.Explicit as CmdArgs
import qualified System.Directory import qualified System.Directory
import qualified System.Directory as 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 StandaloneDeriving #-}
{-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TemplateHaskell #-}
module Language.Haskell.Brittany.Internal.Config.Types where module Brittany.Internal.Config.Types where
import Data.CZipWith import Data.CZipWith
import Data.Coerce (Coercible, coerce) import Data.Coerce (Coercible, coerce)
@ -14,8 +14,8 @@ import qualified Data.Semigroup as Semigroup
import Data.Semigroup (Last) import Data.Semigroup (Last)
import Data.Semigroup.Generic import Data.Semigroup.Generic
import GHC.Generics import GHC.Generics
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils () 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 FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# 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.Key as Key
import qualified Data.Aeson.Types as Aeson import qualified Data.Aeson.Types as Aeson
import Data.Yaml import Data.Yaml
import Language.Haskell.Brittany.Internal.Config.Types import Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.Prelude 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 NoImplicitPrelude #-}
{-# LANGUAGE ScopedTypeVariables #-} {-# 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.State.Class as State.Class
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
@ -23,10 +23,10 @@ import qualified GHC.Driver.CmdLine as GHC
import GHC.Hs import GHC.Hs
import qualified GHC.Types.SrcLoc as GHC import qualified GHC.Types.SrcLoc as GHC
import GHC.Types.SrcLoc (Located, SrcSpan) import GHC.Types.SrcLoc (Located, SrcSpan)
import Language.Haskell.Brittany.Internal.Config.Types import Brittany.Internal.Config.Types
import qualified Language.Haskell.Brittany.Internal.ParseModule as ParseModule import qualified Brittany.Internal.ParseModule as ParseModule
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils import Brittany.Internal.PreludeUtils
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint
import qualified System.IO 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 LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# 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.Trans.MultiRWS.Strict as MultiRWSS
import qualified Control.Monad.Writer.Strict as Writer 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.Occurrence (occNameString)
import GHC.Types.Name.Reader (RdrName(..)) import GHC.Types.Name.Reader (RdrName(..))
import qualified GHC.Types.SrcLoc as GHC import qualified GHC.Types.SrcLoc as GHC
import Language.Haskell.Brittany.Internal.Config.Types import Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.ExactPrintUtils import Brittany.Internal.ExactPrintUtils
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils import Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types import Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Utils import Brittany.Internal.Utils
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
import qualified Language.Haskell.GHC.ExactPrint.Annotate as ExactPrint.Annotate import qualified Language.Haskell.GHC.ExactPrint.Annotate as ExactPrint.Annotate
import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint.Types import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint.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 LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Layouters.DataDecl where module Brittany.Internal.Layouters.DataDecl where
import qualified Data.Data import qualified Data.Data
import qualified Data.Semigroup as Semigroup import qualified Data.Semigroup as Semigroup
@ -10,12 +10,12 @@ import GHC (GenLocated(L), Located)
import qualified GHC import qualified GHC
import GHC.Hs import GHC.Hs
import qualified GHC.OldList as List import qualified GHC.OldList as List
import Language.Haskell.Brittany.Internal.Config.Types import Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.LayouterBasics import Brittany.Internal.LayouterBasics
import Language.Haskell.Brittany.Internal.Layouters.Type import Brittany.Internal.Layouters.Type
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils import Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types 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 NoImplicitPrelude #-}
{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE ScopedTypeVariables #-}
module Language.Haskell.Brittany.Internal.Layouters.Decl where module Brittany.Internal.Layouters.Decl where
import qualified Data.Data import qualified Data.Data
import qualified Data.Foldable import qualified Data.Foldable
@ -23,17 +23,17 @@ import GHC.Types.Basic
, RuleMatchInfo(..) , RuleMatchInfo(..)
) )
import GHC.Types.SrcLoc (Located, SrcSpan, getLoc, unLoc) import GHC.Types.SrcLoc (Located, SrcSpan, getLoc, unLoc)
import Language.Haskell.Brittany.Internal.Config.Types import Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.ExactPrintUtils import Brittany.Internal.ExactPrintUtils
import Language.Haskell.Brittany.Internal.LayouterBasics import Brittany.Internal.LayouterBasics
import Language.Haskell.Brittany.Internal.Layouters.DataDecl import Brittany.Internal.Layouters.DataDecl
import {-# SOURCE #-} Language.Haskell.Brittany.Internal.Layouters.Expr import {-# SOURCE #-} Brittany.Internal.Layouters.Expr
import Language.Haskell.Brittany.Internal.Layouters.Pattern import Brittany.Internal.Layouters.Pattern
import {-# SOURCE #-} Language.Haskell.Brittany.Internal.Layouters.Stmt import {-# SOURCE #-} Brittany.Internal.Layouters.Stmt
import Language.Haskell.Brittany.Internal.Layouters.Type import Brittany.Internal.Layouters.Type
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils import Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types import Brittany.Internal.Types
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
import Language.Haskell.GHC.ExactPrint.Types (mkAnnKey) import Language.Haskell.GHC.ExactPrint.Types (mkAnnKey)
import qualified Language.Haskell.GHC.ExactPrint.Utils as ExactPrint 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 MonadComprehensions #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Layouters.Expr where module Brittany.Internal.Layouters.Expr where
import qualified Data.Data import qualified Data.Data
import qualified Data.Semigroup as Semigroup import qualified Data.Semigroup as Semigroup
@ -14,16 +14,16 @@ import GHC.Hs
import qualified GHC.OldList as List import qualified GHC.OldList as List
import GHC.Types.Basic import GHC.Types.Basic
import GHC.Types.Name import GHC.Types.Name
import Language.Haskell.Brittany.Internal.Config.Types import Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.LayouterBasics import Brittany.Internal.LayouterBasics
import Language.Haskell.Brittany.Internal.Layouters.Decl import Brittany.Internal.Layouters.Decl
import Language.Haskell.Brittany.Internal.Layouters.Pattern import Brittany.Internal.Layouters.Pattern
import Language.Haskell.Brittany.Internal.Layouters.Stmt import Brittany.Internal.Layouters.Stmt
import Language.Haskell.Brittany.Internal.Layouters.Type import Brittany.Internal.Layouters.Type
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils import Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types import Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Utils 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 #-} {-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Layouters.Expr where module Brittany.Internal.Layouters.Expr where
import GHC.Hs 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 MultiWayIf #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Layouters.IE where module Brittany.Internal.Layouters.IE where
import qualified Data.List.Extra import qualified Data.List.Extra
import qualified Data.Text as Text import qualified Data.Text as Text
@ -16,10 +16,10 @@ import GHC
) )
import GHC.Hs import GHC.Hs
import qualified GHC.OldList as List import qualified GHC.OldList as List
import Language.Haskell.Brittany.Internal.LayouterBasics import Brittany.Internal.LayouterBasics
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.Types import Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Utils 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 #-} {-# 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.Semigroup as Semigroup
import qualified Data.Text as Text import qualified Data.Text as Text
@ -8,12 +8,12 @@ import GHC (GenLocated(L), Located, moduleNameString, unLoc)
import GHC.Hs import GHC.Hs
import GHC.Types.Basic import GHC.Types.Basic
import GHC.Unit.Types (IsBootInterface(..)) import GHC.Unit.Types (IsBootInterface(..))
import Language.Haskell.Brittany.Internal.Config.Types import Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.LayouterBasics import Brittany.Internal.LayouterBasics
import Language.Haskell.Brittany.Internal.Layouters.IE import Brittany.Internal.Layouters.IE
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils import Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types 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 LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Layouters.Module where module Brittany.Internal.Layouters.Module where
import qualified Data.Maybe import qualified Data.Maybe
import qualified Data.Semigroup as Semigroup 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 (AnnKeywordId(..), GenLocated(L), moduleNameString, unLoc)
import GHC.Hs import GHC.Hs
import qualified GHC.OldList as List import qualified GHC.OldList as List
import Language.Haskell.Brittany.Internal.Config.Types import Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.LayouterBasics import Brittany.Internal.LayouterBasics
import Language.Haskell.Brittany.Internal.Layouters.IE import Brittany.Internal.Layouters.IE
import Language.Haskell.Brittany.Internal.Layouters.Import import Brittany.Internal.Layouters.Import
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils import Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types import Brittany.Internal.Types
import Language.Haskell.GHC.ExactPrint as ExactPrint import Language.Haskell.GHC.ExactPrint as ExactPrint
import Language.Haskell.GHC.ExactPrint.Types import Language.Haskell.GHC.ExactPrint.Types
(DeltaPos(..), commentContents, deltaRow) (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 LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# 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.Foldable as Foldable
import qualified Data.Sequence as Seq import qualified Data.Sequence as Seq
@ -10,12 +10,12 @@ import GHC (GenLocated(L), ol_val)
import GHC.Hs import GHC.Hs
import qualified GHC.OldList as List import qualified GHC.OldList as List
import GHC.Types.Basic import GHC.Types.Basic
import Language.Haskell.Brittany.Internal.LayouterBasics import Brittany.Internal.LayouterBasics
import {-# SOURCE #-} Language.Haskell.Brittany.Internal.Layouters.Expr import {-# SOURCE #-} Brittany.Internal.Layouters.Expr
import Language.Haskell.Brittany.Internal.Layouters.Type import Brittany.Internal.Layouters.Type
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils import Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types 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 NoImplicitPrelude #-}
{-# LANGUAGE ScopedTypeVariables #-} {-# 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.Semigroup as Semigroup
import qualified Data.Text as Text import qualified Data.Text as Text
import GHC (GenLocated(L)) import GHC (GenLocated(L))
import GHC.Hs import GHC.Hs
import Language.Haskell.Brittany.Internal.Config.Types import Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.LayouterBasics import Brittany.Internal.LayouterBasics
import Language.Haskell.Brittany.Internal.Layouters.Decl import Brittany.Internal.Layouters.Decl
import {-# SOURCE #-} Language.Haskell.Brittany.Internal.Layouters.Expr import {-# SOURCE #-} Brittany.Internal.Layouters.Expr
import Language.Haskell.Brittany.Internal.Layouters.Pattern import Brittany.Internal.Layouters.Pattern
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils import Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types 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 #-} {-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Layouters.Stmt where module Brittany.Internal.Layouters.Stmt where
import GHC.Hs 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 LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Layouters.Type where module Brittany.Internal.Layouters.Type where
import qualified Data.Text as Text import qualified Data.Text as Text
import GHC (AnnKeywordId(..), GenLocated(L)) import GHC (AnnKeywordId(..), GenLocated(L))
@ -9,11 +9,11 @@ import GHC.Hs
import qualified GHC.OldList as List import qualified GHC.OldList as List
import GHC.Types.Basic import GHC.Types.Basic
import GHC.Utils.Outputable (ftext, showSDocUnsafe) import GHC.Utils.Outputable (ftext, showSDocUnsafe)
import Language.Haskell.Brittany.Internal.LayouterBasics import Brittany.Internal.LayouterBasics
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils import Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types import Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Utils import Brittany.Internal.Utils
(FirstLastView(..), splitFirstLast) (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 #-} {-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Obfuscation where module Brittany.Internal.Obfuscation where
import Data.Char import Data.Char
import qualified Data.Map as Map import qualified Data.Map as Map
import qualified Data.Set as Set import qualified Data.Set as Set
import qualified Data.Text as Text import qualified Data.Text as Text
import qualified GHC.OldList as List import qualified GHC.OldList as List
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils import Brittany.Internal.PreludeUtils
import System.Random 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 #-} {-# 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 as Monad
import qualified Control.Monad.IO.Class as IO 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 ( module E
) where ) 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 #-} {-# OPTIONS_GHC -fno-warn-orphans #-}
module Language.Haskell.Brittany.Internal.PreludeUtils where module Brittany.Internal.PreludeUtils where
import Control.Applicative import Control.Applicative
import Control.DeepSeq (NFData, force) 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 ScopedTypeVariables #-}
{-# LANGUAGE TypeOperators #-} {-# 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.Memo as Memo
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS 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.Semigroup as Semigroup
import qualified Data.Text as Text import qualified Data.Text as Text
import qualified GHC.OldList as List import qualified GHC.OldList as List
import Language.Haskell.Brittany.Internal.Config.Types import Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils import Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types import Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Utils 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 LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# 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 Data.Generics.Uniplate.Direct as Uniplate
import qualified GHC.OldList as List import qualified GHC.OldList as List
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.Types 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 LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# 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 Data.Generics.Uniplate.Direct as Uniplate
import qualified GHC.OldList as List import qualified GHC.OldList as List
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils import Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types import Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Utils 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 LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# 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 Data.Generics.Uniplate.Direct as Uniplate
import qualified GHC.OldList as List import qualified GHC.OldList as List
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.Types 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 LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Internal.Transformations.Par where module Brittany.Internal.Transformations.Par where
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.Types import Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Utils 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 ScopedTypeVariables #-}
{-# LANGUAGE StandaloneDeriving #-} {-# 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 Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
import qualified Data.Data import qualified Data.Data
@ -19,8 +19,8 @@ import qualified Data.Kind as Kind
import qualified Data.Strict.Maybe as Strict import qualified Data.Strict.Maybe as Strict
import qualified Data.Text.Lazy.Builder as Text.Builder import qualified Data.Text.Lazy.Builder as Text.Builder
import GHC (AnnKeywordId, GenLocated, Located, SrcSpan) import GHC (AnnKeywordId, GenLocated, Located, SrcSpan)
import Language.Haskell.Brittany.Internal.Config.Types import Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
import Language.Haskell.GHC.ExactPrint (AnnKey) import Language.Haskell.GHC.ExactPrint (AnnKey)
import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint.Types import 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 NoImplicitPrelude #-}
{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE ScopedTypeVariables #-}
module Language.Haskell.Brittany.Internal.Utils where module Brittany.Internal.Utils where
import qualified Data.ByteString as B import qualified Data.ByteString as B
import qualified Data.Coerce import qualified Data.Coerce
@ -22,10 +22,10 @@ import qualified GHC.OldList as List
import GHC.Types.Name.Occurrence as OccName (occNameString) import GHC.Types.Name.Occurrence as OccName (occNameString)
import qualified GHC.Types.SrcLoc as GHC import qualified GHC.Types.SrcLoc as GHC
import qualified GHC.Utils.Outputable as GHC import qualified GHC.Utils.Outputable as GHC
import Language.Haskell.Brittany.Internal.Config.Types import Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils import Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types import Brittany.Internal.Types
import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint.Types import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint.Types
import qualified Language.Haskell.GHC.ExactPrint.Utils as ExactPrint.Utils import qualified Language.Haskell.GHC.ExactPrint.Utils as ExactPrint.Utils
import qualified Text.PrettyPrint as PP 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 MultiWayIf #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Language.Haskell.Brittany.Main where module Brittany.Main where
import Control.Monad (zipWithM) import Control.Monad (zipWithM)
import qualified Control.Monad.Trans.Except as ExceptT 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.LanguageExtensions.Type as GHC
import qualified GHC.OldList as List import qualified GHC.OldList as List
import GHC.Utils.Outputable (Outputable(..), showSDocUnsafe) import GHC.Utils.Outputable (Outputable(..), showSDocUnsafe)
import Language.Haskell.Brittany.Internal import Brittany.Internal
import Language.Haskell.Brittany.Internal.Config import Brittany.Internal.Config
import Language.Haskell.Brittany.Internal.Config.Types import Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.Obfuscation import Brittany.Internal.Obfuscation
import Language.Haskell.Brittany.Internal.Prelude import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils import Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types import Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Utils import Brittany.Internal.Utils
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
import Paths_brittany import Paths_brittany
import qualified System.Directory as Directory 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 Control.Monad as Monad
import qualified Data.List as List 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.Directory as Directory
import qualified System.FilePath as FilePath import qualified System.FilePath as FilePath
import qualified Test.Hspec as Hspec import qualified Test.Hspec as Hspec