Commit 33f1b714 authored by Daniel Trstenjak's avatar Daniel Trstenjak
Browse files

Fix pretty printing of flags

Pretty print the fields of flags nested.
parent f236efd1
...@@ -109,7 +109,7 @@ ppGenPackageFlags flds = vcat [ppFlag f | f <- flds] ...@@ -109,7 +109,7 @@ ppGenPackageFlags flds = vcat [ppFlag f | f <- flds]
ppFlag :: Flag -> Doc ppFlag :: Flag -> Doc
ppFlag flag@(MkFlag name _ _ _) = ppFlag flag@(MkFlag name _ _ _) =
emptyLine $ text "flag" <+> ppFlagName name $+$ fields emptyLine $ text "flag" <+> ppFlagName name $+$ nest indentWith fields
where where
fields = ppFieldsFiltered flagDefaults flagFieldDescrs flag fields = ppFieldsFiltered flagDefaults flagFieldDescrs flag
......
Supports Markdown
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