haskell - wl-pprint 包中 vcat 中的额外空行

Question

我用 wl-pprint包，因为标准的 PrettyPrinter 缺乏功能。一切都很好，除了 vcat 中的空文档函数(与 <$> 组合器相同)。

正确行为:

import Text.PrettyPrint
> vcat[text "a", empty, text "b"]   
a
b

wl-pprint 显示一个额外的空行:

import Text.PrettyPrint.Leijen
> vcat[text "a", empty, text "b"]   
a

b

那我能做什么？过滤 vcat 列表是不可能的，因为没有 Eq Doc 的实例.

Answer 1

因为没有更好的想法，所以在源码中做了如下改动

(<$$>) :: Doc -> Doc -> Doc
x <$$> Empty    = x                   -- <<< added
Empty <$$> y    = y                   -- <<< added
x <$$> y        = x <> linebreak <> y