Improved prettyprinting of definition lists.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@596 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 3 insertions, 3 deletions

diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
index 00060f9e9..b0631a100 100644
--- a/src/Text/Pandoc/Shared.hs
+++ b/src/Text/Pandoc/Shared.hs
@@ -217,9 +217,9 @@ prettyBlock (BulletList blockLists) = "BulletList\n" ++
    indentBy 2 0 ("[ " ++ (joinWithSep ", " 
    (map (\blocks -> prettyBlockList 2 blocks) blockLists))) ++ " ]" 
 prettyBlock (DefinitionList blockLists) = "DefinitionList\n" ++ 
-   indentBy 2 0 ("[ " ++ (joinWithSep ", " 
-   (map (\(term, blocks) -> "(" ++ show term ++ ",\n" ++ 
-   indentBy 1 2 (prettyBlockList 2 blocks) ++ ")") blockLists))) ++ " ]" 
+   indentBy 2 0 ("[" ++ (joinWithSep ",\n" 
+   (map (\(term, blocks) -> "  (" ++ show term ++ ",\n" ++ 
+   indentBy 1 2 (prettyBlockList 2 blocks) ++ "  )") blockLists))) ++ " ]" 
 prettyBlock (Table caption aligns widths header rows) = 
    "Table " ++ show caption ++ " " ++ show aligns ++ " " ++ 
    show widths ++ "\n" ++ prettyRow header ++ " [\n" ++