Remove unnecessary export lists

src-brittany/Main.hs

@@ -1,5 +1,3 @@
-module Main where
-
 import qualified Language.Haskell.Brittany.Main as BrittanyMain
 
 main :: IO ()

src-libinterfacetests/Main.hs

@@ -1,7 +1,3 @@
-module Main where
-
-
-
 import           Test.Hspec
 import           Language.Haskell.Brittany
 import qualified Data.Text as Text

src-literatetests/Main.hs

@@ -2,13 +2,6 @@
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE MonadComprehensions #-}
 
-module Main
-  ( main
-  )
-where
-
-
-
 import Language.Haskell.Brittany.Internal.Prelude
 import qualified Data.List.Extra
 import qualified Data.Maybe

src-unittests/AsymptoticPerfTests.hs

@@ -1,9 +1,6 @@
 {-# LANGUAGE ScopedTypeVariables #-}
 
-module AsymptoticPerfTests
+module AsymptoticPerfTests where
-  ( asymptoticPerfTest
-  )
-where
 
 
 

src-unittests/TestMain.hs

@@ -1,6 +1,3 @@
-module Main where
-
-
 import Test.Hspec
 
 import AsymptoticPerfTests

src/Language/Haskell/Brittany/Internal/Backend.hs

@@ -4,10 +4,7 @@
 {-# LANGUAGE NoImplicitPrelude #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 
-module Language.Haskell.Brittany.Internal.Backend
+module Language.Haskell.Brittany.Internal.Backend where
-  ( layoutBriDocM
-  )
-where
 
 
 

src/Language/Haskell/Brittany/Internal/BackendUtils.hs

@@ -1,34 +1,7 @@
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
-module Language.Haskell.Brittany.Internal.BackendUtils
+module Language.Haskell.Brittany.Internal.BackendUtils where
-  ( layoutWriteAppend
-  , layoutWriteAppendMultiline
-  , layoutWriteNewlineBlock
-  , layoutWriteNewline
-  , layoutWriteEnsureNewlineBlock
-  , layoutWriteEnsureBlock
-  , layoutWithAddBaseCol
-  , layoutWithAddBaseColBlock
-  , layoutWithAddBaseColN
-  , layoutWithAddBaseColNBlock
-  , layoutBaseYPushCur
-  , layoutBaseYPop
-  , layoutIndentLevelPushCur
-  , layoutIndentLevelPop
-  , layoutWriteEnsureAbsoluteN
-  , layoutAddSepSpace
-  , layoutSetCommentCol
-  , layoutMoveToCommentPos
-  , layoutIndentRestorePostComment
-  , moveToExactAnn
-  , moveToY
-  , ppmMoveToExactLoc
-  , layoutWritePriorComments
-  , layoutWritePostComments
-  , layoutRemoveIndentLevelLinger
-  )
-where
 
 
 import Language.Haskell.Brittany.Internal.Prelude

src/Language/Haskell/Brittany/Internal/Config.hs

@@ -1,25 +1,7 @@
 {-# LANGUAGE MonadComprehensions #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
-module Language.Haskell.Brittany.Internal.Config
+module Language.Haskell.Brittany.Internal.Config where
-  ( CConfig(..)
-  , CDebugConfig(..)
-  , CLayoutConfig(..)
-  , DebugConfig
-  , LayoutConfig
-  , Config
-  , cmdlineConfigParser
-  , staticDefaultConfig
-  , forwardOptionsSyntaxExtsEnabled
-  , readConfig
-  , userConfigPath
-  , findLocalConfigPath
-  , readConfigs
-  , readConfigsWithUserConfig
-  , writeDefaultConfig
-  , showConfigYaml
-  )
-where
 
 
 

src/Language/Haskell/Brittany/Internal/Config/Types.hs

@@ -5,11 +5,7 @@
 {-# LANGUAGE StandaloneDeriving #-}
 {-# LANGUAGE TemplateHaskell #-}
 
-module Language.Haskell.Brittany.Internal.Config.Types
+module Language.Haskell.Brittany.Internal.Config.Types where
-  ( module Language.Haskell.Brittany.Internal.Config.Types
-  , cMap
-  )
-where
 
 
 

src/Language/Haskell/Brittany/Internal/Config/Types/Instances.hs

@@ -16,8 +16,7 @@
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
-module Language.Haskell.Brittany.Internal.Config.Types.Instances
+module Language.Haskell.Brittany.Internal.Config.Types.Instances where
-where
 
 
 

src/Language/Haskell/Brittany/Internal/ExactPrintUtils.hs

@@ -5,15 +5,7 @@
 {-# LANGUAGE NoImplicitPrelude #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 
-module Language.Haskell.Brittany.Internal.ExactPrintUtils
+module Language.Haskell.Brittany.Internal.ExactPrintUtils where
-  ( parseModule
-  , parseModuleFromString
-  , commentAnnFixTransformGlob
-  , extractToplevelAnns
-  , foldedAnnKeys
-  , withTransformedAnns
-  )
-where
 
 
 

src/Language/Haskell/Brittany/Internal/LayouterBasics.hs

@@ -4,83 +4,7 @@
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
-module Language.Haskell.Brittany.Internal.LayouterBasics
+module Language.Haskell.Brittany.Internal.LayouterBasics where
-  ( processDefault
-  , rdrNameToText
-  , lrdrNameToText
-  , lrdrNameToTextAnn
-  , lrdrNameToTextAnnTypeEqualityIsSpecial
-  , lrdrNameToTextAnnTypeEqualityIsSpecialAndRespectTick
-  , askIndent
-  , extractAllComments
-  , extractRestComments
-  , filterAnns
-  , docEmpty
-  , docLit
-  , docLitS
-  , docAlt
-  , CollectAltM
-  , addAlternativeCond
-  , addAlternative
-  , runFilteredAlternative
-  , docLines
-  , docCols
-  , docSeq
-  , docPar
-  , docNodeAnnKW
-  , docNodeMoveToKWDP
-  , docWrapNode
-  , docWrapNodePrior
-  , docWrapNodeRest
-  , docForceSingleline
-  , docForceMultiline
-  , docEnsureIndent
-  , docAddBaseY
-  , docSetBaseY
-  , docSetIndentLevel
-  , docSeparator
-  , docAnnotationPrior
-  , docAnnotationKW
-  , docAnnotationRest
-  , docMoveToKWDP
-  , docNonBottomSpacing
-  , docNonBottomSpacingS
-  , docSetParSpacing
-  , docForceParSpacing
-  , docDebug
-  , docSetBaseAndIndent
-  , briDocByExact
-  , briDocByExactNoComment
-  , briDocByExactInlineOnly
-  , foldedAnnKeys
-  , unknownNodeError
-  , appSep
-  , docCommaSep
-  , docParenLSep
-  , docParenL
-  , docParenR
-  , docParenHashLSep
-  , docParenHashRSep
-  , docBracketL
-  , docBracketR
-  , docTick
-  , spacifyDocs
-  , briDocMToPPM
-  , briDocMToPPMInner
-  , allocateNode
-  , docSharedWrapper
-  , hasAnyCommentsBelow
-  , hasCommentsBetween
-  , hasAnyCommentsConnected
-  , hasAnyCommentsPrior
-  , hasAnyRegularCommentsConnected
-  , hasAnyRegularCommentsRest
-  , hasAnnKeywordComment
-  , hasAnnKeyword
-  , astAnn
-  , allocNodeIndex
-  )
-where
 
 
 

src/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs

@@ -1,10 +1,7 @@
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
-module Language.Haskell.Brittany.Internal.Layouters.DataDecl
+module Language.Haskell.Brittany.Internal.Layouters.DataDecl where
-  ( layoutDataDecl
-  )
-where
 
 
 

src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs

@@ -3,17 +3,7 @@
 {-# LANGUAGE NoImplicitPrelude #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 
-module Language.Haskell.Brittany.Internal.Layouters.Decl
+module Language.Haskell.Brittany.Internal.Layouters.Decl where
-  ( layoutDecl
-  , layoutSig
-  , layoutBind
-  , layoutLocalBinds
-  , layoutGuardLStmt
-  , layoutPatternBind
-  , layoutGrhs
-  , layoutPatternBindFinal
-  )
-where
 
 
 

src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs

@@ -2,12 +2,7 @@
 {-# LANGUAGE MonadComprehensions #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
-module Language.Haskell.Brittany.Internal.Layouters.Expr
+module Language.Haskell.Brittany.Internal.Layouters.Expr where
-  ( layoutExpr
-  , litBriDoc
-  , overLitValBriDoc
-  )
-where
 
 
 

src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs-boot

@@ -1,11 +1,6 @@
 {-# LANGUAGE NoImplicitPrelude #-}
 
-module Language.Haskell.Brittany.Internal.Layouters.Expr
+module Language.Haskell.Brittany.Internal.Layouters.Expr where
-  ( layoutExpr
-  , litBriDoc
-  , overLitValBriDoc
-  )
-where
 
 
 

src/Language/Haskell/Brittany/Internal/Layouters/IE.hs

@@ -2,13 +2,7 @@
 {-# LANGUAGE MultiWayIf #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
-module Language.Haskell.Brittany.Internal.Layouters.IE
+module Language.Haskell.Brittany.Internal.Layouters.IE where
-  ( layoutIE
-  , layoutLLIEs
-  , layoutAnnAndSepLLIEs
-  , SortItemsFlag(..)
-  )
-where
 
 import Language.Haskell.Brittany.Internal.Prelude
 import qualified Data.List.Extra

src/Language/Haskell/Brittany/Internal/Layouters/Import.hs

@@ -1,6 +1,6 @@
 {-# LANGUAGE NoImplicitPrelude #-}
 
-module Language.Haskell.Brittany.Internal.Layouters.Import (layoutImport) where
+module Language.Haskell.Brittany.Internal.Layouters.Import where
 
 import Language.Haskell.Brittany.Internal.Prelude
 import Language.Haskell.Brittany.Internal.PreludeUtils

src/Language/Haskell/Brittany/Internal/Layouters/Module.hs

@@ -1,7 +1,7 @@
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
-module Language.Haskell.Brittany.Internal.Layouters.Module (layoutModule) where
+module Language.Haskell.Brittany.Internal.Layouters.Module where
 
 import Language.Haskell.Brittany.Internal.Prelude
 import Language.Haskell.Brittany.Internal.PreludeUtils

src/Language/Haskell/Brittany/Internal/Layouters/Pattern.hs

@@ -1,11 +1,7 @@
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
-module Language.Haskell.Brittany.Internal.Layouters.Pattern
+module Language.Haskell.Brittany.Internal.Layouters.Pattern where
-  ( layoutPat
-  , colsWrapPat
-  )
-where
 
 
 

src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs

@@ -2,10 +2,7 @@
 {-# LANGUAGE NoImplicitPrelude #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 
-module Language.Haskell.Brittany.Internal.Layouters.Stmt
+module Language.Haskell.Brittany.Internal.Layouters.Stmt where
-  ( layoutStmt
-  )
-where
 
 
 

src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs-boot

@@ -1,9 +1,6 @@
 {-# LANGUAGE NoImplicitPrelude #-}
 
-module Language.Haskell.Brittany.Internal.Layouters.Stmt
+module Language.Haskell.Brittany.Internal.Layouters.Stmt where
-  ( layoutStmt
-  )
-where
 
 
 

src/Language/Haskell/Brittany/Internal/Layouters/Type.hs

@@ -1,12 +1,7 @@
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
-module Language.Haskell.Brittany.Internal.Layouters.Type
+module Language.Haskell.Brittany.Internal.Layouters.Type where
-  ( layoutType
-  , layoutTyVarBndrs
-  , processTyVarBndrsSingleline
-  )
-where
 
 
 

src/Language/Haskell/Brittany/Internal/Obfuscation.hs

@@ -1,9 +1,6 @@
 {-# LANGUAGE NoImplicitPrelude #-}
 
-module Language.Haskell.Brittany.Internal.Obfuscation
+module Language.Haskell.Brittany.Internal.Obfuscation where
-  ( obfuscate
-  )
-where
 
 
 

src/Language/Haskell/Brittany/Internal/Prelude.hs

@@ -1,8 +1,4 @@
-module Language.Haskell.Brittany.Internal.Prelude
+module Language.Haskell.Brittany.Internal.Prelude ( module E ) where
-  ( module E
-  , module Language.Haskell.Brittany.Internal.Prelude
-  )
-where
 
 
 
@@ -361,6 +357,3 @@ import Control.Monad.Trans.Maybe     as E ( MaybeT (..)
 
 import Data.Data                     as E ( toConstr
                                           )
-
-todo :: a
-todo = error "todo"

src/Language/Haskell/Brittany/Internal/PreludeUtils.hs

@@ -1,6 +1,5 @@
 {-# OPTIONS_GHC -fno-warn-orphans #-}
-module Language.Haskell.Brittany.Internal.PreludeUtils
+module Language.Haskell.Brittany.Internal.PreludeUtils where
-where
 
 
 

src/Language/Haskell/Brittany/Internal/Transformations/Alt.hs

@@ -7,10 +7,7 @@
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE TypeOperators #-}
 
-module Language.Haskell.Brittany.Internal.Transformations.Alt
+module Language.Haskell.Brittany.Internal.Transformations.Alt where
-  ( transformAlts
-  )
-where
 
 
 

src/Language/Haskell/Brittany/Internal/Transformations/Columns.hs

@@ -1,10 +1,7 @@
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
-module Language.Haskell.Brittany.Internal.Transformations.Columns
+module Language.Haskell.Brittany.Internal.Transformations.Columns where
-  ( transformSimplifyColumns
-  )
-where
 
 
 

src/Language/Haskell/Brittany/Internal/Transformations/Floating.hs

@@ -1,10 +1,7 @@
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
-module Language.Haskell.Brittany.Internal.Transformations.Floating
+module Language.Haskell.Brittany.Internal.Transformations.Floating where
-  ( transformSimplifyFloating
-  )
-where
 
 
 

src/Language/Haskell/Brittany/Internal/Transformations/Indent.hs

@@ -1,10 +1,7 @@
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
-module Language.Haskell.Brittany.Internal.Transformations.Indent
+module Language.Haskell.Brittany.Internal.Transformations.Indent where
-  ( transformSimplifyIndent
-  )
-where
 
 
 

src/Language/Haskell/Brittany/Internal/Transformations/Par.hs

@@ -1,10 +1,7 @@
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
-module Language.Haskell.Brittany.Internal.Transformations.Par
+module Language.Haskell.Brittany.Internal.Transformations.Par where
-  ( transformSimplifyPar
-  )
-where
 
 
 

src/Language/Haskell/Brittany/Internal/Types.hs

@@ -11,8 +11,7 @@
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE StandaloneDeriving #-}
 
-module Language.Haskell.Brittany.Internal.Types
+module Language.Haskell.Brittany.Internal.Types where
-where
 
 
 

src/Language/Haskell/Brittany/Internal/Utils.hs

@@ -5,33 +5,7 @@
 {-# LANGUAGE NoImplicitPrelude #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 
-module Language.Haskell.Brittany.Internal.Utils
+module Language.Haskell.Brittany.Internal.Utils where
-  ( parDoc
-  , parDocW
-  , fromMaybeIdentity
-  , fromOptionIdentity
-  , traceIfDumpConf
-  , mModify
-  , customLayouterF
-  , astToDoc
-  , briDocToDoc
-  -- , displayBriDocSimpleTree
-  , annsDoc
-  , Max (..)
-  , tellDebugMess
-  , tellDebugMessShow
-  , briDocToDocWithAnns
-  , breakEither
-  , spanMaybe
-  , transformUp
-  , transformDownMay
-  , FirstLastView(..)
-  , splitFirstLast
-  , lines'
-  , showOutputable
-  , absurdExt
-  )
-where
 
 
 

src/Language/Haskell/Brittany/Main.hs

@@ -2,7 +2,7 @@
 {-# LANGUAGE MultiWayIf #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
-module Language.Haskell.Brittany.Main (main) where
+module Language.Haskell.Brittany.Main where