pipeSep :: [Doc] -> Doc
pipeSep = align . sep . punctuate (space <> char '|')
pipeSep :: [Doc] -> Doc
pipeSep = align . sep . punctuate (space <> char '|')
pipeSep = align . sep . punctuate (space <> char '|')