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

Revert "Remove `Language.Haskell.` from module names" 

This reverts commit 2fe1432631.
remotes/mxxun/master
Taylor Fausak 2022-01-13 14:16:14 +00:00 committed by GitHub
parent 29814f919e
commit 93a43bf28d
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:
Brittany Language.Haskell.Brittany
Brittany.Internal Language.Haskell.Brittany.Internal
Brittany.Internal.Backend Language.Haskell.Brittany.Internal.Backend
Brittany.Internal.BackendUtils Language.Haskell.Brittany.Internal.BackendUtils
Brittany.Internal.Config Language.Haskell.Brittany.Internal.Config
Brittany.Internal.Config.Types Language.Haskell.Brittany.Internal.Config.Types
Brittany.Internal.Config.Types.Instances Language.Haskell.Brittany.Internal.Config.Types.Instances
Brittany.Internal.ExactPrintUtils Language.Haskell.Brittany.Internal.ExactPrintUtils
Brittany.Internal.LayouterBasics Language.Haskell.Brittany.Internal.LayouterBasics
Brittany.Internal.Layouters.DataDecl Language.Haskell.Brittany.Internal.Layouters.DataDecl
Brittany.Internal.Layouters.Decl Language.Haskell.Brittany.Internal.Layouters.Decl
Brittany.Internal.Layouters.Expr Language.Haskell.Brittany.Internal.Layouters.Expr
Brittany.Internal.Layouters.IE Language.Haskell.Brittany.Internal.Layouters.IE
Brittany.Internal.Layouters.Import Language.Haskell.Brittany.Internal.Layouters.Import
Brittany.Internal.Layouters.Module Language.Haskell.Brittany.Internal.Layouters.Module
Brittany.Internal.Layouters.Pattern Language.Haskell.Brittany.Internal.Layouters.Pattern
Brittany.Internal.Layouters.Stmt Language.Haskell.Brittany.Internal.Layouters.Stmt
Brittany.Internal.Layouters.Type Language.Haskell.Brittany.Internal.Layouters.Type
Brittany.Internal.Obfuscation Language.Haskell.Brittany.Internal.Obfuscation
Brittany.Internal.ParseModule Language.Haskell.Brittany.Internal.ParseModule
Brittany.Internal.Prelude Language.Haskell.Brittany.Internal.Prelude
Brittany.Internal.PreludeUtils Language.Haskell.Brittany.Internal.PreludeUtils
Brittany.Internal.Transformations.Alt Language.Haskell.Brittany.Internal.Transformations.Alt
Brittany.Internal.Transformations.Columns Language.Haskell.Brittany.Internal.Transformations.Columns
Brittany.Internal.Transformations.Floating Language.Haskell.Brittany.Internal.Transformations.Floating
Brittany.Internal.Transformations.Indent Language.Haskell.Brittany.Internal.Transformations.Indent
Brittany.Internal.Transformations.Par Language.Haskell.Brittany.Internal.Transformations.Par
Brittany.Internal.Types Language.Haskell.Brittany.Internal.Types
Brittany.Internal.Utils Language.Haskell.Brittany.Internal.Utils
Brittany.Main Language.Haskell.Brittany.Main
Paths_brittany Paths_brittany
executable brittany executable brittany

2
source/executable/Main.hs
View File

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

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

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

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

@ -2,7 +2,7 @@
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE ScopedTypeVariables #-}
module Brittany.Internal module Language.Haskell.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 Brittany.Internal.Backend import Language.Haskell.Brittany.Internal.Backend
import Brittany.Internal.BackendUtils import Language.Haskell.Brittany.Internal.BackendUtils
import Brittany.Internal.Config import Language.Haskell.Brittany.Internal.Config
import Brittany.Internal.Config.Types import Language.Haskell.Brittany.Internal.Config.Types
import Brittany.Internal.ExactPrintUtils import Language.Haskell.Brittany.Internal.ExactPrintUtils
import Brittany.Internal.LayouterBasics import Language.Haskell.Brittany.Internal.LayouterBasics
import Brittany.Internal.Layouters.Decl import Language.Haskell.Brittany.Internal.Layouters.Decl
import Brittany.Internal.Layouters.Module import Language.Haskell.Brittany.Internal.Layouters.Module
import Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils import Language.Haskell.Brittany.Internal.PreludeUtils
import Brittany.Internal.Transformations.Alt import Language.Haskell.Brittany.Internal.Transformations.Alt
import Brittany.Internal.Transformations.Columns import Language.Haskell.Brittany.Internal.Transformations.Columns
import Brittany.Internal.Transformations.Floating import Language.Haskell.Brittany.Internal.Transformations.Floating
import Brittany.Internal.Transformations.Indent import Language.Haskell.Brittany.Internal.Transformations.Indent
import Brittany.Internal.Transformations.Par import Language.Haskell.Brittany.Internal.Transformations.Par
import Brittany.Internal.Types import Language.Haskell.Brittany.Internal.Types
import Brittany.Internal.Utils import Language.Haskell.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/Brittany/Internal/Backend.hs → source/library/Language/Haskell/Brittany/Internal/Backend.hs
View File

@ -4,7 +4,7 @@
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE ScopedTypeVariables #-}
module Brittany.Internal.Backend where module Language.Haskell.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 Brittany.Internal.BackendUtils import Language.Haskell.Brittany.Internal.BackendUtils
import Brittany.Internal.Config.Types import Language.Haskell.Brittany.Internal.Config.Types
import Brittany.Internal.LayouterBasics import Language.Haskell.Brittany.Internal.LayouterBasics
import Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils import Language.Haskell.Brittany.Internal.PreludeUtils
import Brittany.Internal.Types import Language.Haskell.Brittany.Internal.Types
import Brittany.Internal.Utils import Language.Haskell.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/Brittany/Internal/BackendUtils.hs → source/library/Language/Haskell/Brittany/Internal/BackendUtils.hs
View File

@ -1,7 +1,7 @@
{-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Brittany.Internal.BackendUtils where module Language.Haskell.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 Brittany.Internal.Config.Types import Language.Haskell.Brittany.Internal.Config.Types
import Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils import Language.Haskell.Brittany.Internal.PreludeUtils
import Brittany.Internal.Types import Language.Haskell.Brittany.Internal.Types
import Brittany.Internal.Utils import Language.Haskell.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/Brittany/Internal/Config.hs → source/library/Language/Haskell/Brittany/Internal/Config.hs
View File

@ -1,7 +1,7 @@
{-# LANGUAGE MonadComprehensions #-} {-# LANGUAGE MonadComprehensions #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Brittany.Internal.Config where module Language.Haskell.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 Brittany.Internal.Config.Types import Language.Haskell.Brittany.Internal.Config.Types
import Brittany.Internal.Config.Types.Instances () import Language.Haskell.Brittany.Internal.Config.Types.Instances ()
import Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils import Language.Haskell.Brittany.Internal.PreludeUtils
import Brittany.Internal.Utils import Language.Haskell.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/Brittany/Internal/Config/Types.hs → source/library/Language/Haskell/Brittany/Internal/Config/Types.hs
View File

@ -5,7 +5,7 @@
{-# LANGUAGE StandaloneDeriving #-} {-# LANGUAGE StandaloneDeriving #-}
{-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TemplateHaskell #-}
module Brittany.Internal.Config.Types where module Language.Haskell.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 Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils () import Language.Haskell.Brittany.Internal.PreludeUtils ()

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

@ -16,13 +16,13 @@
{-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Brittany.Internal.Config.Types.Instances where module Language.Haskell.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 Brittany.Internal.Config.Types import Language.Haskell.Brittany.Internal.Config.Types
import Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude

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

@ -5,7 +5,7 @@
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE ScopedTypeVariables #-}
module Brittany.Internal.ExactPrintUtils where module Language.Haskell.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 Brittany.Internal.Config.Types import Language.Haskell.Brittany.Internal.Config.Types
import qualified Brittany.Internal.ParseModule as ParseModule import qualified Language.Haskell.Brittany.Internal.ParseModule as ParseModule
import Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils import Language.Haskell.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/Brittany/Internal/LayouterBasics.hs → source/library/Language/Haskell/Brittany/Internal/LayouterBasics.hs
View File

@ -4,7 +4,7 @@
{-# LANGUAGE LambdaCase #-} {-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Brittany.Internal.LayouterBasics where module Language.Haskell.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 Brittany.Internal.Config.Types import Language.Haskell.Brittany.Internal.Config.Types
import Brittany.Internal.ExactPrintUtils import Language.Haskell.Brittany.Internal.ExactPrintUtils
import Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils import Language.Haskell.Brittany.Internal.PreludeUtils
import Brittany.Internal.Types import Language.Haskell.Brittany.Internal.Types
import Brittany.Internal.Utils import Language.Haskell.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/Brittany/Internal/Layouters/DataDecl.hs → source/library/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs
View File

@ -1,7 +1,7 @@
{-# LANGUAGE LambdaCase #-} {-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Brittany.Internal.Layouters.DataDecl where module Language.Haskell.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 Brittany.Internal.Config.Types import Language.Haskell.Brittany.Internal.Config.Types
import Brittany.Internal.LayouterBasics import Language.Haskell.Brittany.Internal.LayouterBasics
import Brittany.Internal.Layouters.Type import Language.Haskell.Brittany.Internal.Layouters.Type
import Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils import Language.Haskell.Brittany.Internal.PreludeUtils
import Brittany.Internal.Types import Language.Haskell.Brittany.Internal.Types

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

@ -3,7 +3,7 @@
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE ScopedTypeVariables #-}
module Brittany.Internal.Layouters.Decl where module Language.Haskell.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 Brittany.Internal.Config.Types import Language.Haskell.Brittany.Internal.Config.Types
import Brittany.Internal.ExactPrintUtils import Language.Haskell.Brittany.Internal.ExactPrintUtils
import Brittany.Internal.LayouterBasics import Language.Haskell.Brittany.Internal.LayouterBasics
import Brittany.Internal.Layouters.DataDecl import Language.Haskell.Brittany.Internal.Layouters.DataDecl
import {-# SOURCE #-} Brittany.Internal.Layouters.Expr import {-# SOURCE #-} Language.Haskell.Brittany.Internal.Layouters.Expr
import Brittany.Internal.Layouters.Pattern import Language.Haskell.Brittany.Internal.Layouters.Pattern
import {-# SOURCE #-} Brittany.Internal.Layouters.Stmt import {-# SOURCE #-} Language.Haskell.Brittany.Internal.Layouters.Stmt
import Brittany.Internal.Layouters.Type import Language.Haskell.Brittany.Internal.Layouters.Type
import Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils import Language.Haskell.Brittany.Internal.PreludeUtils
import Brittany.Internal.Types import Language.Haskell.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/Brittany/Internal/Layouters/Expr.hs → source/library/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
View File

@ -2,7 +2,7 @@
{-# LANGUAGE MonadComprehensions #-} {-# LANGUAGE MonadComprehensions #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Brittany.Internal.Layouters.Expr where module Language.Haskell.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 Brittany.Internal.Config.Types import Language.Haskell.Brittany.Internal.Config.Types
import Brittany.Internal.LayouterBasics import Language.Haskell.Brittany.Internal.LayouterBasics
import Brittany.Internal.Layouters.Decl import Language.Haskell.Brittany.Internal.Layouters.Decl
import Brittany.Internal.Layouters.Pattern import Language.Haskell.Brittany.Internal.Layouters.Pattern
import Brittany.Internal.Layouters.Stmt import Language.Haskell.Brittany.Internal.Layouters.Stmt
import Brittany.Internal.Layouters.Type import Language.Haskell.Brittany.Internal.Layouters.Type
import Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils import Language.Haskell.Brittany.Internal.PreludeUtils
import Brittany.Internal.Types import Language.Haskell.Brittany.Internal.Types
import Brittany.Internal.Utils import Language.Haskell.Brittany.Internal.Utils

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

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

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

@ -2,7 +2,7 @@
{-# LANGUAGE MultiWayIf #-} {-# LANGUAGE MultiWayIf #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Brittany.Internal.Layouters.IE where module Language.Haskell.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 Brittany.Internal.LayouterBasics import Language.Haskell.Brittany.Internal.LayouterBasics
import Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.Types import Language.Haskell.Brittany.Internal.Types
import Brittany.Internal.Utils import Language.Haskell.Brittany.Internal.Utils

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

@ -1,6 +1,6 @@
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Brittany.Internal.Layouters.Import where module Language.Haskell.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 Brittany.Internal.Config.Types import Language.Haskell.Brittany.Internal.Config.Types
import Brittany.Internal.LayouterBasics import Language.Haskell.Brittany.Internal.LayouterBasics
import Brittany.Internal.Layouters.IE import Language.Haskell.Brittany.Internal.Layouters.IE
import Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils import Language.Haskell.Brittany.Internal.PreludeUtils
import Brittany.Internal.Types import Language.Haskell.Brittany.Internal.Types

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

@ -1,7 +1,7 @@
{-# LANGUAGE LambdaCase #-} {-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Brittany.Internal.Layouters.Module where module Language.Haskell.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 Brittany.Internal.Config.Types import Language.Haskell.Brittany.Internal.Config.Types
import Brittany.Internal.LayouterBasics import Language.Haskell.Brittany.Internal.LayouterBasics
import Brittany.Internal.Layouters.IE import Language.Haskell.Brittany.Internal.Layouters.IE
import Brittany.Internal.Layouters.Import import Language.Haskell.Brittany.Internal.Layouters.Import
import Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils import Language.Haskell.Brittany.Internal.PreludeUtils
import Brittany.Internal.Types import Language.Haskell.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/Brittany/Internal/Layouters/Pattern.hs → source/library/Language/Haskell/Brittany/Internal/Layouters/Pattern.hs
View File

@ -1,7 +1,7 @@
{-# LANGUAGE LambdaCase #-} {-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Brittany.Internal.Layouters.Pattern where module Language.Haskell.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 Brittany.Internal.LayouterBasics import Language.Haskell.Brittany.Internal.LayouterBasics
import {-# SOURCE #-} Brittany.Internal.Layouters.Expr import {-# SOURCE #-} Language.Haskell.Brittany.Internal.Layouters.Expr
import Brittany.Internal.Layouters.Type import Language.Haskell.Brittany.Internal.Layouters.Type
import Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils import Language.Haskell.Brittany.Internal.PreludeUtils
import Brittany.Internal.Types import Language.Haskell.Brittany.Internal.Types

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

@ -2,20 +2,20 @@
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE ScopedTypeVariables #-}
module Brittany.Internal.Layouters.Stmt where module Language.Haskell.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 Brittany.Internal.Config.Types import Language.Haskell.Brittany.Internal.Config.Types
import Brittany.Internal.LayouterBasics import Language.Haskell.Brittany.Internal.LayouterBasics
import Brittany.Internal.Layouters.Decl import Language.Haskell.Brittany.Internal.Layouters.Decl
import {-# SOURCE #-} Brittany.Internal.Layouters.Expr import {-# SOURCE #-} Language.Haskell.Brittany.Internal.Layouters.Expr
import Brittany.Internal.Layouters.Pattern import Language.Haskell.Brittany.Internal.Layouters.Pattern
import Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils import Language.Haskell.Brittany.Internal.PreludeUtils
import Brittany.Internal.Types import Language.Haskell.Brittany.Internal.Types

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

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

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

@ -1,7 +1,7 @@
{-# LANGUAGE LambdaCase #-} {-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Brittany.Internal.Layouters.Type where module Language.Haskell.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 Brittany.Internal.LayouterBasics import Language.Haskell.Brittany.Internal.LayouterBasics
import Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils import Language.Haskell.Brittany.Internal.PreludeUtils
import Brittany.Internal.Types import Language.Haskell.Brittany.Internal.Types
import Brittany.Internal.Utils import Language.Haskell.Brittany.Internal.Utils
(FirstLastView(..), splitFirstLast) (FirstLastView(..), splitFirstLast)

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

@ -1,14 +1,14 @@
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Brittany.Internal.Obfuscation where module Language.Haskell.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 Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils import Language.Haskell.Brittany.Internal.PreludeUtils
import System.Random import System.Random

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

@ -1,6 +1,6 @@
{-# OPTIONS_GHC -Wno-implicit-prelude #-} {-# OPTIONS_GHC -Wno-implicit-prelude #-}
module Brittany.Internal.ParseModule where module Language.Haskell.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/Brittany/Internal/Prelude.hs → source/library/Language/Haskell/Brittany/Internal/Prelude.hs
View File

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

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

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

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

@ -7,7 +7,7 @@
{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TypeOperators #-} {-# LANGUAGE TypeOperators #-}
module Brittany.Internal.Transformations.Alt where module Language.Haskell.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 Brittany.Internal.Config.Types import Language.Haskell.Brittany.Internal.Config.Types
import Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils import Language.Haskell.Brittany.Internal.PreludeUtils
import Brittany.Internal.Types import Language.Haskell.Brittany.Internal.Types
import Brittany.Internal.Utils import Language.Haskell.Brittany.Internal.Utils

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

@ -1,12 +1,12 @@
{-# LANGUAGE LambdaCase #-} {-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Brittany.Internal.Transformations.Columns where module Language.Haskell.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 Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.Types import Language.Haskell.Brittany.Internal.Types

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

@ -1,14 +1,14 @@
{-# LANGUAGE LambdaCase #-} {-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Brittany.Internal.Transformations.Floating where module Language.Haskell.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 Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils import Language.Haskell.Brittany.Internal.PreludeUtils
import Brittany.Internal.Types import Language.Haskell.Brittany.Internal.Types
import Brittany.Internal.Utils import Language.Haskell.Brittany.Internal.Utils

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

@ -1,12 +1,12 @@
{-# LANGUAGE LambdaCase #-} {-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Brittany.Internal.Transformations.Indent where module Language.Haskell.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 Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.Types import Language.Haskell.Brittany.Internal.Types

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

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

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

@ -10,7 +10,7 @@
{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE StandaloneDeriving #-} {-# LANGUAGE StandaloneDeriving #-}
module Brittany.Internal.Types where module Language.Haskell.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 Brittany.Internal.Config.Types import Language.Haskell.Brittany.Internal.Config.Types
import Brittany.Internal.Prelude import Language.Haskell.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/Brittany/Internal/Utils.hs → source/library/Language/Haskell/Brittany/Internal/Utils.hs
View File

@ -5,7 +5,7 @@
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE ScopedTypeVariables #-}
module Brittany.Internal.Utils where module Language.Haskell.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 Brittany.Internal.Config.Types import Language.Haskell.Brittany.Internal.Config.Types
import Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils import Language.Haskell.Brittany.Internal.PreludeUtils
import Brittany.Internal.Types import Language.Haskell.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/Brittany/Main.hs → source/library/Language/Haskell/Brittany/Main.hs
View File

@ -2,7 +2,7 @@
{-# LANGUAGE MultiWayIf #-} {-# LANGUAGE MultiWayIf #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Brittany.Main where module Language.Haskell.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 Brittany.Internal import Language.Haskell.Brittany.Internal
import Brittany.Internal.Config import Language.Haskell.Brittany.Internal.Config
import Brittany.Internal.Config.Types import Language.Haskell.Brittany.Internal.Config.Types
import Brittany.Internal.Obfuscation import Language.Haskell.Brittany.Internal.Obfuscation
import Brittany.Internal.Prelude import Language.Haskell.Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils import Language.Haskell.Brittany.Internal.PreludeUtils
import Brittany.Internal.Types import Language.Haskell.Brittany.Internal.Types
import Brittany.Internal.Utils import Language.Haskell.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 Brittany.Main as Brittany import qualified Language.Haskell.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