Commit 77ccb23c authored by Daniel Trstenjak's avatar Daniel Trstenjak

Remove module 'PrettyPrintIndent' and move function 'indentWith' into module 'ParseUtils'

parent 73dd1c26
......@@ -151,7 +151,6 @@ library
Distribution.PackageDescription.Configuration
Distribution.PackageDescription.Parse
Distribution.PackageDescription.PrettyPrint
Distribution.PackageDescription.PrettyPrintIndent
Distribution.PackageDescription.Utils
Distribution.ParseUtils
Distribution.ReadE
......
......@@ -59,12 +59,11 @@ import Text.PrettyPrint
(hsep, comma, punctuate, parens, char, nest, empty,
isEmpty, ($$), (<+>), colon, (<>), text, vcat, ($+$), Doc, render)
import Distribution.Simple.Utils (writeUTF8File)
import Distribution.ParseUtils (showFreeText, FieldDescr(..))
import Distribution.ParseUtils (showFreeText, FieldDescr(..), indentWith)
import Distribution.PackageDescription.Parse (pkgDescrFieldDescrs,binfoFieldDescrs,libFieldDescrs,
sourceRepoFieldDescrs)
import Distribution.Package (Dependency(..))
import Distribution.Text (Text(..))
import Distribution.PackageDescription.PrettyPrintIndent (indentWith)
import Data.Maybe (isJust, fromJust, isNothing)
-- | Recompile with false for regression testing
......
module Distribution.PackageDescription.PrettyPrintIndent
( indentWith
) where
-- | the indentation used for pretty printing
indentWith :: Int
indentWith = 4
......@@ -62,7 +62,7 @@ module Distribution.ParseUtils (
parseSepList, parseCommaList, parseOptCommaList,
showFilePath, showToken, showTestedWith, showFreeText, parseFreeText,
field, simpleField, simpleNestedField, listField, spaceListField, commaListField,
optsField, liftField, boolField, parseQuoted,
optsField, liftField, boolField, parseQuoted, indentWith,
UnrecFieldParser, warnUnrec, ignoreUnrec,
) where
......@@ -75,7 +75,6 @@ import Distribution.Package ( PackageName(..), Dependency(..) )
import Distribution.ModuleName (ModuleName)
import Distribution.Compat.ReadP as ReadP hiding (get)
import Distribution.ReadE
import Distribution.PackageDescription.PrettyPrintIndent (indentWith)
import Distribution.Text
( Text(..) )
import Distribution.Simple.Utils
......@@ -761,3 +760,7 @@ lines_ s = let (l, s') = break (== '\n') s
in l : case s' of
[] -> []
(_:s'') -> lines_ s''
-- | the indentation used for pretty printing
indentWith :: Int
indentWith = 4
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment