Fix pretty printing of flags

Pretty print the fields of flags nested.

Fix pretty printing of flags
Pretty print the fields of flags nested.
33f1b714 · Daniel Trstenjak · f236efd1 · 33f1b714
Commit 33f1b714 authored Jul 17, 2014 by Daniel Trstenjak
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

Cabal/Distribution/PackageDescription/PrettyPrint.hs Cabal/Distribution/PackageDescription/PrettyPrint.hs +1 -1

No files found.
--- a/Cabal/Distribution/PackageDescription/PrettyPrint.hs
+++ b/Cabal/Distribution/PackageDescription/PrettyPrint.hs
@@ -109,7 +109,7 @@ ppGenPackageFlags flds                   = vcat [ppFlag f | f <- flds]

 ppFlag :: Flag -> Doc
 ppFlag flag@(MkFlag name _ _ _)    =
-    emptyLine $ text "flag" <+> ppFlagName name $+$ fields
+    emptyLine $ text "flag" <+> ppFlagName name $+$ nest indentWith fields
  where
    fields = ppFieldsFiltered flagDefaults flagFieldDescrs flag