Уродливый вывод xml

Question

Я использую HaXml для преобразования XML-файла, и все это прекрасно работает.Однако вывод, который генерирует HaXml, выглядит ужасно, в основном потому, что он вставляет перенос строки почти в каждую заключительную скобку.Вот некоторый код, который генерирует xml:

writeFile outPath (show . PP.content . head $ test (docContent (posInNewCxt "" Nothing) (xmlParse "" "")))

test = 
    mkElemAttr "test" [("a", literal "1"), ("b", literal "2")]
        [
            mkElem "nested" []
        ]

, и вот результат, который он генерирует:

<test a="1" b="2"
  ><nested/></test>

Конечно, это хуже с большим количеством элементов.

Я знаю, что HaXml использует Text.PrettyPrint.HughesPJ для рендеринга, но использование различных стилей не сильно изменилось.

Итак, есть ли способ изменитьвыход

Answer 1

Заменив ваш звонок на show на Text.PrettyPrint.renderStyle, вы можете получить несколько вариантов поведения:

import Text.XML.HaXml
import Text.XML.HaXml.Util
import Text.XML.HaXml.Posn
import qualified Text.XML.HaXml.Pretty as PP
import Text.PrettyPrint

main = writeFile "/tmp/x.xml" (renderStyle s . PP.content 
                                             . head $
               test (docContent (posInNewCxt "" Nothing) (xmlParse "" "")))
    where
        s = style { mode = LeftMode, lineLength = 2 }

test = 
    mkElemAttr "test" [("a", literal "1"), ("b", literal "2")]
        [
            mkElem "nested" []
        ]

Экспериментируя с различными готовыми стилями:

Стиль по умолчанию

<test a="1" b="2"
  ><nested/></test>

style {mode = OneLineMode}

<test a="1" b="2" ><nested/></test>

style {mode =LeftMode, lineLength = 2}

<test a="1"
b="2"
><nested/></test>

Так что вы, безусловно, можете сделать несколько разных вещей.

Если вам не нравится ни один из них, вы можете написать собственные процессоры, используя fullRender:

fullRender
    :: Mode                     -- Rendering mode
    -> Int                      -- Line length
    -> Float                    -- Ribbons per line
    -> (TextDetails -> a -> a)  -- What to do with text
    -> a                        -- What to do at the end
    -> Doc                      -- The document
    -> a                        -- Result

, где ваше пользовательское поведение может быть запрограммировано в функцию TextDetails.