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
hs-source-dirs: source/library
exposed-modules:
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
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
Paths_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 = BrittanyMain.main

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

@ -1,6 +1,6 @@
{-# LANGUAGE NoImplicitPrelude #-}
module Brittany
module Language.Haskell.Brittany
( parsePrintModule
, staticDefaultConfig
, forwardOptionsSyntaxExtsEnabled
@ -18,7 +18,7 @@ module Brittany
, BrittanyError(..)
) where
import Brittany.Internal
import Brittany.Internal.Config
import Brittany.Internal.Config.Types
import Brittany.Internal.Types
import Language.Haskell.Brittany.Internal
import Language.Haskell.Brittany.Internal.Config
import Language.Haskell.Brittany.Internal.Config.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 ScopedTypeVariables #-}
module Brittany.Internal
module Language.Haskell.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 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 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 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/Brittany/Internal/Backend.hs → source/library/Language/Haskell/Brittany/Internal/Backend.hs
View File

@ -4,7 +4,7 @@
{-# LANGUAGE NoImplicitPrelude #-}
{-# 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 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 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 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 qualified Language.Haskell.GHC.ExactPrint as ExactPrint
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 NoImplicitPrelude #-}
module Brittany.Internal.BackendUtils where
module Language.Haskell.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 Brittany.Internal.Config.Types
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Brittany.Internal.Types
import Brittany.Internal.Utils
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 Language.Haskell.GHC.ExactPrint.Types (AnnKey, Annotation)
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 NoImplicitPrelude #-}
module Brittany.Internal.Config where
module Language.Haskell.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 Brittany.Internal.Config.Types
import Brittany.Internal.Config.Types.Instances ()
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Brittany.Internal.Utils
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 qualified System.Console.CmdArgs.Explicit as CmdArgs
import qualified System.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 TemplateHaskell #-}
module Brittany.Internal.Config.Types where
module Language.Haskell.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 Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils ()
import Language.Haskell.Brittany.Internal.Prelude
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 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.Types as Aeson
import Data.Yaml
import Brittany.Internal.Config.Types
import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.Config.Types
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 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.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 Brittany.Internal.Config.Types
import qualified Brittany.Internal.ParseModule as ParseModule
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
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 qualified Language.Haskell.GHC.ExactPrint as ExactPrint
import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint
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 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.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 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 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 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/Brittany/Internal/Layouters/DataDecl.hs → source/library/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs
View File

@ -1,7 +1,7 @@
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Brittany.Internal.Layouters.DataDecl where
module Language.Haskell.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 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
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

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 ScopedTypeVariables #-}
module Brittany.Internal.Layouters.Decl where
module Language.Haskell.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 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 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 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/Brittany/Internal/Layouters/Expr.hs → source/library/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
View File

@ -2,7 +2,7 @@
{-# LANGUAGE MonadComprehensions #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Brittany.Internal.Layouters.Expr where
module Language.Haskell.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 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
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

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 #-}
module Brittany.Internal.Layouters.Expr where
module Language.Haskell.Brittany.Internal.Layouters.Expr where
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 NoImplicitPrelude #-}
module Brittany.Internal.Layouters.IE where
module Language.Haskell.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 Brittany.Internal.LayouterBasics
import Brittany.Internal.Prelude
import Brittany.Internal.Types
import Brittany.Internal.Utils
import Language.Haskell.Brittany.Internal.LayouterBasics
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.Types
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 #-}
module Brittany.Internal.Layouters.Import where
module Language.Haskell.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 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
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

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 NoImplicitPrelude #-}
module Brittany.Internal.Layouters.Module where
module Language.Haskell.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 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.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 Language.Haskell.GHC.ExactPrint as ExactPrint
import Language.Haskell.GHC.ExactPrint.Types
(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 NoImplicitPrelude #-}
module Brittany.Internal.Layouters.Pattern where
module Language.Haskell.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 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
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

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 ScopedTypeVariables #-}
module Brittany.Internal.Layouters.Stmt where
module Language.Haskell.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 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
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

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 #-}
module Brittany.Internal.Layouters.Stmt where
module Language.Haskell.Brittany.Internal.Layouters.Stmt where
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 NoImplicitPrelude #-}
module Brittany.Internal.Layouters.Type where
module Language.Haskell.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 Brittany.Internal.LayouterBasics
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Brittany.Internal.Types
import Brittany.Internal.Utils
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
(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 #-}
module Brittany.Internal.Obfuscation where
module Language.Haskell.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 Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils
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 #-}
module Brittany.Internal.ParseModule where
module Language.Haskell.Brittany.Internal.ParseModule where
import qualified Control.Monad as Monad
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
) 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 #-}
module Brittany.Internal.PreludeUtils where
module Language.Haskell.Brittany.Internal.PreludeUtils where
import Control.Applicative
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 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.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 Brittany.Internal.Config.Types
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Brittany.Internal.Types
import Brittany.Internal.Utils
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

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 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 GHC.OldList as List
import Brittany.Internal.Prelude
import Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Prelude
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 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 GHC.OldList as List
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Brittany.Internal.Types
import Brittany.Internal.Utils
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.PreludeUtils
import Language.Haskell.Brittany.Internal.Types
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 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 GHC.OldList as List
import Brittany.Internal.Prelude
import Brittany.Internal.Types
import Language.Haskell.Brittany.Internal.Prelude
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 NoImplicitPrelude #-}
module Brittany.Internal.Transformations.Par where
module Language.Haskell.Brittany.Internal.Transformations.Par where
import Brittany.Internal.Prelude
import Brittany.Internal.Types
import Brittany.Internal.Utils
import Language.Haskell.Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.Types
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 StandaloneDeriving #-}
module Brittany.Internal.Types where
module Language.Haskell.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 Brittany.Internal.Config.Types
import Brittany.Internal.Prelude
import Language.Haskell.Brittany.Internal.Config.Types
import Language.Haskell.Brittany.Internal.Prelude
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
import Language.Haskell.GHC.ExactPrint (AnnKey)
import 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 ScopedTypeVariables #-}
module Brittany.Internal.Utils where
module Language.Haskell.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 Brittany.Internal.Config.Types
import Brittany.Internal.Prelude
import Brittany.Internal.PreludeUtils
import Brittany.Internal.Types
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 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/Brittany/Main.hs → source/library/Language/Haskell/Brittany/Main.hs
View File

@ -2,7 +2,7 @@
{-# LANGUAGE MultiWayIf #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Brittany.Main where
module Language.Haskell.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 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 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 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 Brittany.Main as Brittany
import qualified Language.Haskell.Brittany.Main as Brittany
import qualified System.Directory as Directory
import qualified System.FilePath as FilePath
import qualified Test.Hspec as Hspec