From d03deccba88d5abc8c4ec328e142e10943e1a785 Mon Sep 17 00:00:00 2001 From: Taylor Fausak Date: Sat, 6 Nov 2021 20:38:28 +0000 Subject: [PATCH] Remove unnecessary export lists --- src-brittany/Main.hs | 2 - src-libinterfacetests/Main.hs | 4 - src-literatetests/Main.hs | 7 -- src-unittests/AsymptoticPerfTests.hs | 5 +- src-unittests/TestMain.hs | 3 - .../Haskell/Brittany/Internal/Backend.hs | 5 +- .../Haskell/Brittany/Internal/BackendUtils.hs | 29 +------ .../Haskell/Brittany/Internal/Config.hs | 20 +---- .../Haskell/Brittany/Internal/Config/Types.hs | 6 +- .../Internal/Config/Types/Instances.hs | 3 +- .../Brittany/Internal/ExactPrintUtils.hs | 10 +-- .../Brittany/Internal/LayouterBasics.hs | 78 +------------------ .../Brittany/Internal/Layouters/DataDecl.hs | 5 +- .../Brittany/Internal/Layouters/Decl.hs | 12 +-- .../Brittany/Internal/Layouters/Expr.hs | 7 +- .../Brittany/Internal/Layouters/Expr.hs-boot | 7 +- .../Haskell/Brittany/Internal/Layouters/IE.hs | 8 +- .../Brittany/Internal/Layouters/Import.hs | 2 +- .../Brittany/Internal/Layouters/Module.hs | 2 +- .../Brittany/Internal/Layouters/Pattern.hs | 6 +- .../Brittany/Internal/Layouters/Stmt.hs | 5 +- .../Brittany/Internal/Layouters/Stmt.hs-boot | 5 +- .../Brittany/Internal/Layouters/Type.hs | 7 +- .../Haskell/Brittany/Internal/Obfuscation.hs | 5 +- .../Haskell/Brittany/Internal/Prelude.hs | 9 +-- .../Haskell/Brittany/Internal/PreludeUtils.hs | 3 +- .../Brittany/Internal/Transformations/Alt.hs | 5 +- .../Internal/Transformations/Columns.hs | 5 +- .../Internal/Transformations/Floating.hs | 5 +- .../Internal/Transformations/Indent.hs | 5 +- .../Brittany/Internal/Transformations/Par.hs | 5 +- .../Haskell/Brittany/Internal/Types.hs | 3 +- .../Haskell/Brittany/Internal/Utils.hs | 28 +------ src/Language/Haskell/Brittany/Main.hs | 2 +- 34 files changed, 30 insertions(+), 283 deletions(-) diff --git a/src-brittany/Main.hs b/src-brittany/Main.hs index 0312f6b..7a5ae94 100644 --- a/src-brittany/Main.hs +++ b/src-brittany/Main.hs @@ -1,5 +1,3 @@ -module Main where - import qualified Language.Haskell.Brittany.Main as BrittanyMain main :: IO () diff --git a/src-libinterfacetests/Main.hs b/src-libinterfacetests/Main.hs index f663174..2d1924f 100644 --- a/src-libinterfacetests/Main.hs +++ b/src-libinterfacetests/Main.hs @@ -1,7 +1,3 @@ -module Main where - - - import Test.Hspec import Language.Haskell.Brittany import qualified Data.Text as Text diff --git a/src-literatetests/Main.hs b/src-literatetests/Main.hs index 399c08e..5949a55 100644 --- a/src-literatetests/Main.hs +++ b/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 diff --git a/src-unittests/AsymptoticPerfTests.hs b/src-unittests/AsymptoticPerfTests.hs index 6abbf90..702ab90 100644 --- a/src-unittests/AsymptoticPerfTests.hs +++ b/src-unittests/AsymptoticPerfTests.hs @@ -1,9 +1,6 @@ {-# LANGUAGE ScopedTypeVariables #-} -module AsymptoticPerfTests - ( asymptoticPerfTest - ) -where +module AsymptoticPerfTests where diff --git a/src-unittests/TestMain.hs b/src-unittests/TestMain.hs index 81ec429..2f0f894 100644 --- a/src-unittests/TestMain.hs +++ b/src-unittests/TestMain.hs @@ -1,6 +1,3 @@ -module Main where - - import Test.Hspec import AsymptoticPerfTests diff --git a/src/Language/Haskell/Brittany/Internal/Backend.hs b/src/Language/Haskell/Brittany/Internal/Backend.hs index 204a16f..b8241bf 100644 --- a/src/Language/Haskell/Brittany/Internal/Backend.hs +++ b/src/Language/Haskell/Brittany/Internal/Backend.hs @@ -4,10 +4,7 @@ {-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE ScopedTypeVariables #-} -module Language.Haskell.Brittany.Internal.Backend - ( layoutBriDocM - ) -where +module Language.Haskell.Brittany.Internal.Backend where diff --git a/src/Language/Haskell/Brittany/Internal/BackendUtils.hs b/src/Language/Haskell/Brittany/Internal/BackendUtils.hs index 444d548..8003fd8 100644 --- a/src/Language/Haskell/Brittany/Internal/BackendUtils.hs +++ b/src/Language/Haskell/Brittany/Internal/BackendUtils.hs @@ -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 diff --git a/src/Language/Haskell/Brittany/Internal/Config.hs b/src/Language/Haskell/Brittany/Internal/Config.hs index c243e20..66d6d7f 100644 --- a/src/Language/Haskell/Brittany/Internal/Config.hs +++ b/src/Language/Haskell/Brittany/Internal/Config.hs @@ -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 diff --git a/src/Language/Haskell/Brittany/Internal/Config/Types.hs b/src/Language/Haskell/Brittany/Internal/Config/Types.hs index 30d32c3..929ac90 100644 --- a/src/Language/Haskell/Brittany/Internal/Config/Types.hs +++ b/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 - , cMap - ) -where +module Language.Haskell.Brittany.Internal.Config.Types where diff --git a/src/Language/Haskell/Brittany/Internal/Config/Types/Instances.hs b/src/Language/Haskell/Brittany/Internal/Config/Types/Instances.hs index 97484b4..2c0c78f 100644 --- a/src/Language/Haskell/Brittany/Internal/Config/Types/Instances.hs +++ b/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 -where +module Language.Haskell.Brittany.Internal.Config.Types.Instances where diff --git a/src/Language/Haskell/Brittany/Internal/ExactPrintUtils.hs b/src/Language/Haskell/Brittany/Internal/ExactPrintUtils.hs index 4c281aa..f2c7806 100644 --- a/src/Language/Haskell/Brittany/Internal/ExactPrintUtils.hs +++ b/src/Language/Haskell/Brittany/Internal/ExactPrintUtils.hs @@ -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 diff --git a/src/Language/Haskell/Brittany/Internal/LayouterBasics.hs b/src/Language/Haskell/Brittany/Internal/LayouterBasics.hs index e89549f..1d8f48a 100644 --- a/src/Language/Haskell/Brittany/Internal/LayouterBasics.hs +++ b/src/Language/Haskell/Brittany/Internal/LayouterBasics.hs @@ -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 diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs b/src/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs index 6a5af9b..49f615a 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs @@ -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 diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs index a9621f4..a2d4a00 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs @@ -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 diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs index 564fe3f..b26687c 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs @@ -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 diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs-boot b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs-boot index 5ee3716..8fb094b 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs-boot +++ b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs-boot @@ -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 diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/IE.hs b/src/Language/Haskell/Brittany/Internal/Layouters/IE.hs index 481a030..06aa0cf 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/IE.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/IE.hs @@ -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 diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Import.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Import.hs index 2a1edf5..1b19145 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/Import.hs +++ b/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 diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Module.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Module.hs index 00c3bfd..52c2cd1 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/Module.hs +++ b/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 diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Pattern.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Pattern.hs index 6ea00a1..4b99bca 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/Pattern.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/Pattern.hs @@ -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 diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs index 73bc785..95f7273 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs @@ -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 diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs-boot b/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs-boot index 8b6c000..02b388c 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs-boot +++ b/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs-boot @@ -1,9 +1,6 @@ {-# LANGUAGE NoImplicitPrelude #-} -module Language.Haskell.Brittany.Internal.Layouters.Stmt - ( layoutStmt - ) -where +module Language.Haskell.Brittany.Internal.Layouters.Stmt where diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Type.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Type.hs index 63fa20a..f5efb7f 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/Type.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/Type.hs @@ -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 diff --git a/src/Language/Haskell/Brittany/Internal/Obfuscation.hs b/src/Language/Haskell/Brittany/Internal/Obfuscation.hs index 427fe43..29dc13c 100644 --- a/src/Language/Haskell/Brittany/Internal/Obfuscation.hs +++ b/src/Language/Haskell/Brittany/Internal/Obfuscation.hs @@ -1,9 +1,6 @@ {-# LANGUAGE NoImplicitPrelude #-} -module Language.Haskell.Brittany.Internal.Obfuscation - ( obfuscate - ) -where +module Language.Haskell.Brittany.Internal.Obfuscation where diff --git a/src/Language/Haskell/Brittany/Internal/Prelude.hs b/src/Language/Haskell/Brittany/Internal/Prelude.hs index b6c4423..d09b788 100644 --- a/src/Language/Haskell/Brittany/Internal/Prelude.hs +++ b/src/Language/Haskell/Brittany/Internal/Prelude.hs @@ -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" diff --git a/src/Language/Haskell/Brittany/Internal/PreludeUtils.hs b/src/Language/Haskell/Brittany/Internal/PreludeUtils.hs index 445a0ab..cfaed43 100644 --- a/src/Language/Haskell/Brittany/Internal/PreludeUtils.hs +++ b/src/Language/Haskell/Brittany/Internal/PreludeUtils.hs @@ -1,6 +1,5 @@ {-# OPTIONS_GHC -fno-warn-orphans #-} -module Language.Haskell.Brittany.Internal.PreludeUtils -where +module Language.Haskell.Brittany.Internal.PreludeUtils where diff --git a/src/Language/Haskell/Brittany/Internal/Transformations/Alt.hs b/src/Language/Haskell/Brittany/Internal/Transformations/Alt.hs index 4dfbba2..57461ca 100644 --- a/src/Language/Haskell/Brittany/Internal/Transformations/Alt.hs +++ b/src/Language/Haskell/Brittany/Internal/Transformations/Alt.hs @@ -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 diff --git a/src/Language/Haskell/Brittany/Internal/Transformations/Columns.hs b/src/Language/Haskell/Brittany/Internal/Transformations/Columns.hs index 732e6a1..89a2c6f 100644 --- a/src/Language/Haskell/Brittany/Internal/Transformations/Columns.hs +++ b/src/Language/Haskell/Brittany/Internal/Transformations/Columns.hs @@ -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 diff --git a/src/Language/Haskell/Brittany/Internal/Transformations/Floating.hs b/src/Language/Haskell/Brittany/Internal/Transformations/Floating.hs index 87d551d..0231306 100644 --- a/src/Language/Haskell/Brittany/Internal/Transformations/Floating.hs +++ b/src/Language/Haskell/Brittany/Internal/Transformations/Floating.hs @@ -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 diff --git a/src/Language/Haskell/Brittany/Internal/Transformations/Indent.hs b/src/Language/Haskell/Brittany/Internal/Transformations/Indent.hs index e39790a..7f7d7e5 100644 --- a/src/Language/Haskell/Brittany/Internal/Transformations/Indent.hs +++ b/src/Language/Haskell/Brittany/Internal/Transformations/Indent.hs @@ -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 diff --git a/src/Language/Haskell/Brittany/Internal/Transformations/Par.hs b/src/Language/Haskell/Brittany/Internal/Transformations/Par.hs index eb186f4..305ee08 100644 --- a/src/Language/Haskell/Brittany/Internal/Transformations/Par.hs +++ b/src/Language/Haskell/Brittany/Internal/Transformations/Par.hs @@ -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 diff --git a/src/Language/Haskell/Brittany/Internal/Types.hs b/src/Language/Haskell/Brittany/Internal/Types.hs index db9e36d..55c3746 100644 --- a/src/Language/Haskell/Brittany/Internal/Types.hs +++ b/src/Language/Haskell/Brittany/Internal/Types.hs @@ -11,8 +11,7 @@ {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE StandaloneDeriving #-} -module Language.Haskell.Brittany.Internal.Types -where +module Language.Haskell.Brittany.Internal.Types where diff --git a/src/Language/Haskell/Brittany/Internal/Utils.hs b/src/Language/Haskell/Brittany/Internal/Utils.hs index a18f874..a12f7ea 100644 --- a/src/Language/Haskell/Brittany/Internal/Utils.hs +++ b/src/Language/Haskell/Brittany/Internal/Utils.hs @@ -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 diff --git a/src/Language/Haskell/Brittany/Main.hs b/src/Language/Haskell/Brittany/Main.hs index e1d482b..7df86d5 100644 --- a/src/Language/Haskell/Brittany/Main.hs +++ b/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