Remove unnecessary export lists
Taylor Fausak
GitHub
parent
69e0f9fedf
commit
d03deccba8
|
|
@ -1,5 +1,3 @@
|
|||
module Main where
|
||||
|
||||
import qualified Language.Haskell.Brittany.Main as BrittanyMain
|
||||
|
||||
main :: IO ()
|
||||
|
|
|
|||
|
|
@ -1,7 +1,3 @@
|
|||
module Main where
|
||||
|
||||
|
||||
|
||||
import Test.Hspec
|
||||
import Language.Haskell.Brittany
|
||||
import qualified Data.Text as Text
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -1,9 +1,6 @@
|
|||
{-# LANGUAGE ScopedTypeVariables #-}
|
||||
|
||||
module AsymptoticPerfTests
|
||||
( asymptoticPerfTest
|
||||
)
|
||||
where
|
||||
module AsymptoticPerfTests where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,3 @@
|
|||
module Main where
|
||||
|
||||
|
||||
import Test.Hspec
|
||||
|
||||
import AsymptoticPerfTests
|
||||
|
|
|
|||
|
|
@ -4,10 +4,7 @@
|
|||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
{-# LANGUAGE ScopedTypeVariables #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.Backend
|
||||
( layoutBriDocM
|
||||
)
|
||||
where
|
||||
module Language.Haskell.Brittany.Internal.Backend where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,34 +1,7 @@
|
|||
{-# LANGUAGE FlexibleContexts #-}
|
||||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.BackendUtils
|
||||
( 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
|
||||
module Language.Haskell.Brittany.Internal.BackendUtils where
|
||||
|
||||
|
||||
import Language.Haskell.Brittany.Internal.Prelude
|
||||
|
|
|
|||
|
|
@ -1,25 +1,7 @@
|
|||
{-# LANGUAGE MonadComprehensions #-}
|
||||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.Config
|
||||
( CConfig(..)
|
||||
, CDebugConfig(..)
|
||||
, CLayoutConfig(..)
|
||||
, DebugConfig
|
||||
, LayoutConfig
|
||||
, Config
|
||||
, cmdlineConfigParser
|
||||
, staticDefaultConfig
|
||||
, forwardOptionsSyntaxExtsEnabled
|
||||
, readConfig
|
||||
, userConfigPath
|
||||
, findLocalConfigPath
|
||||
, readConfigs
|
||||
, readConfigsWithUserConfig
|
||||
, writeDefaultConfig
|
||||
, showConfigYaml
|
||||
)
|
||||
where
|
||||
module Language.Haskell.Brittany.Internal.Config where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -5,11 +5,7 @@
|
|||
{-# LANGUAGE StandaloneDeriving #-}
|
||||
{-# LANGUAGE TemplateHaskell #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.Config.Types
|
||||
( module Language.Haskell.Brittany.Internal.Config.Types
|
||||
, cMap
|
||||
)
|
||||
where
|
||||
module Language.Haskell.Brittany.Internal.Config.Types where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -16,8 +16,7 @@
|
|||
{-# LANGUAGE FlexibleInstances #-}
|
||||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.Config.Types.Instances
|
||||
where
|
||||
module Language.Haskell.Brittany.Internal.Config.Types.Instances where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -5,15 +5,7 @@
|
|||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
{-# LANGUAGE ScopedTypeVariables #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.ExactPrintUtils
|
||||
( parseModule
|
||||
, parseModuleFromString
|
||||
, commentAnnFixTransformGlob
|
||||
, extractToplevelAnns
|
||||
, foldedAnnKeys
|
||||
, withTransformedAnns
|
||||
)
|
||||
where
|
||||
module Language.Haskell.Brittany.Internal.ExactPrintUtils where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -4,83 +4,7 @@
|
|||
{-# LANGUAGE LambdaCase #-}
|
||||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.LayouterBasics
|
||||
( 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
|
||||
module Language.Haskell.Brittany.Internal.LayouterBasics where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,10 +1,7 @@
|
|||
{-# LANGUAGE LambdaCase #-}
|
||||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.Layouters.DataDecl
|
||||
( layoutDataDecl
|
||||
)
|
||||
where
|
||||
module Language.Haskell.Brittany.Internal.Layouters.DataDecl where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -3,17 +3,7 @@
|
|||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
{-# LANGUAGE ScopedTypeVariables #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.Layouters.Decl
|
||||
( layoutDecl
|
||||
, layoutSig
|
||||
, layoutBind
|
||||
, layoutLocalBinds
|
||||
, layoutGuardLStmt
|
||||
, layoutPatternBind
|
||||
, layoutGrhs
|
||||
, layoutPatternBindFinal
|
||||
)
|
||||
where
|
||||
module Language.Haskell.Brittany.Internal.Layouters.Decl where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -2,12 +2,7 @@
|
|||
{-# LANGUAGE MonadComprehensions #-}
|
||||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.Layouters.Expr
|
||||
( layoutExpr
|
||||
, litBriDoc
|
||||
, overLitValBriDoc
|
||||
)
|
||||
where
|
||||
module Language.Haskell.Brittany.Internal.Layouters.Expr where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,11 +1,6 @@
|
|||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.Layouters.Expr
|
||||
( layoutExpr
|
||||
, litBriDoc
|
||||
, overLitValBriDoc
|
||||
)
|
||||
where
|
||||
module Language.Haskell.Brittany.Internal.Layouters.Expr where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -2,13 +2,7 @@
|
|||
{-# LANGUAGE MultiWayIf #-}
|
||||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.Layouters.IE
|
||||
( layoutIE
|
||||
, layoutLLIEs
|
||||
, layoutAnnAndSepLLIEs
|
||||
, SortItemsFlag(..)
|
||||
)
|
||||
where
|
||||
module Language.Haskell.Brittany.Internal.Layouters.IE where
|
||||
|
||||
import Language.Haskell.Brittany.Internal.Prelude
|
||||
import qualified Data.List.Extra
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -1,11 +1,7 @@
|
|||
{-# LANGUAGE LambdaCase #-}
|
||||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.Layouters.Pattern
|
||||
( layoutPat
|
||||
, colsWrapPat
|
||||
)
|
||||
where
|
||||
module Language.Haskell.Brittany.Internal.Layouters.Pattern where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -2,10 +2,7 @@
|
|||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
{-# LANGUAGE ScopedTypeVariables #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.Layouters.Stmt
|
||||
( layoutStmt
|
||||
)
|
||||
where
|
||||
module Language.Haskell.Brittany.Internal.Layouters.Stmt where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,9 +1,6 @@
|
|||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.Layouters.Stmt
|
||||
( layoutStmt
|
||||
)
|
||||
where
|
||||
module Language.Haskell.Brittany.Internal.Layouters.Stmt where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,12 +1,7 @@
|
|||
{-# LANGUAGE LambdaCase #-}
|
||||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.Layouters.Type
|
||||
( layoutType
|
||||
, layoutTyVarBndrs
|
||||
, processTyVarBndrsSingleline
|
||||
)
|
||||
where
|
||||
module Language.Haskell.Brittany.Internal.Layouters.Type where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,9 +1,6 @@
|
|||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.Obfuscation
|
||||
( obfuscate
|
||||
)
|
||||
where
|
||||
module Language.Haskell.Brittany.Internal.Obfuscation where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,8 +1,4 @@
|
|||
module Language.Haskell.Brittany.Internal.Prelude
|
||||
( module E
|
||||
, module Language.Haskell.Brittany.Internal.Prelude
|
||||
)
|
||||
where
|
||||
module Language.Haskell.Brittany.Internal.Prelude ( module E ) where
|
||||
|
||||
|
||||
|
||||
|
|
@ -361,6 +357,3 @@ import Control.Monad.Trans.Maybe as E ( MaybeT (..)
|
|||
|
||||
import Data.Data as E ( toConstr
|
||||
)
|
||||
|
||||
todo :: a
|
||||
todo = error "todo"
|
||||
|
|
|
|||
|
|
@ -1,6 +1,5 @@
|
|||
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
||||
module Language.Haskell.Brittany.Internal.PreludeUtils
|
||||
where
|
||||
module Language.Haskell.Brittany.Internal.PreludeUtils where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -7,10 +7,7 @@
|
|||
{-# LANGUAGE ScopedTypeVariables #-}
|
||||
{-# LANGUAGE TypeOperators #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.Transformations.Alt
|
||||
( transformAlts
|
||||
)
|
||||
where
|
||||
module Language.Haskell.Brittany.Internal.Transformations.Alt where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,10 +1,7 @@
|
|||
{-# LANGUAGE LambdaCase #-}
|
||||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.Transformations.Columns
|
||||
( transformSimplifyColumns
|
||||
)
|
||||
where
|
||||
module Language.Haskell.Brittany.Internal.Transformations.Columns where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,10 +1,7 @@
|
|||
{-# LANGUAGE LambdaCase #-}
|
||||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.Transformations.Floating
|
||||
( transformSimplifyFloating
|
||||
)
|
||||
where
|
||||
module Language.Haskell.Brittany.Internal.Transformations.Floating where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,10 +1,7 @@
|
|||
{-# LANGUAGE LambdaCase #-}
|
||||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.Transformations.Indent
|
||||
( transformSimplifyIndent
|
||||
)
|
||||
where
|
||||
module Language.Haskell.Brittany.Internal.Transformations.Indent where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,10 +1,7 @@
|
|||
{-# LANGUAGE LambdaCase #-}
|
||||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.Transformations.Par
|
||||
( transformSimplifyPar
|
||||
)
|
||||
where
|
||||
module Language.Haskell.Brittany.Internal.Transformations.Par where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -11,8 +11,7 @@
|
|||
{-# LANGUAGE ScopedTypeVariables #-}
|
||||
{-# LANGUAGE StandaloneDeriving #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.Types
|
||||
where
|
||||
module Language.Haskell.Brittany.Internal.Types where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -5,33 +5,7 @@
|
|||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
{-# LANGUAGE ScopedTypeVariables #-}
|
||||
|
||||
module Language.Haskell.Brittany.Internal.Utils
|
||||
( 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
|
||||
module Language.Haskell.Brittany.Internal.Utils where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -2,7 +2,7 @@
|
|||
{-# LANGUAGE MultiWayIf #-}
|
||||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
|
||||
module Language.Haskell.Brittany.Main (main) where
|
||||
module Language.Haskell.Brittany.Main where
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue