sexp-grammar 1.2.0 → 1.2.0.1

raw patch · 2 files changed

+17/−6 lines, 2 files

Files

• sexp-grammar.cabal +1/−1
• src/Language/Sexp/Pretty.hs +16/−5

@@ -1,5 +1,5 @@ name:                sexp-grammar-version:             1.2.0+version:             1.2.0.1 license:             BSD3 license-file:        LICENSE author:              Eugene Smolanka, Sergey Vinokurov

@@ -30,19 +30,30 @@ instance Pretty Atom where   pretty = ppAtom +ppList :: [Sexp] -> Doc+ppList ls =+  align $ case ls of+    [] ->+      empty+    a : [] ->+      ppSexp a+    a : b : [] ->+      ppSexp a <+> ppSexp b+    a : rest@(_ : _ : _) ->+      ppSexp a <+> group (nest 2 (vsep (map ppSexp rest)))+ ppSexp :: Sexp -> Doc ppSexp (Atom   _ a)  = ppAtom a-ppSexp (Vector _ ss) = brackets (align $ sep (map ppSexp ss))+ppSexp (List   _ ss) = parens $ ppList ss+ppSexp (Vector _ ss) = brackets $ ppList ss ppSexp (Quoted _ a)  = squote <> ppSexp a-ppSexp (List   _ ss) = parens (align $ sep (map ppSexp ss))  instance Pretty Sexp where   pretty = ppSexp  -- | Pretty-print a Sexp to a Text prettySexp' :: Sexp -> Lazy.Text-prettySexp' = displayT . renderPretty 0.5 75 . ppSexp-{-# INLINE prettySexp' #-}+prettySexp' = displayT . renderPretty 0.75 79 . ppSexp  -- | Pretty-print a Sexp to a ByteString prettySexp :: Sexp -> ByteString@@ -50,4 +61,4 @@  -- | Pretty-print a list of Sexps as a sequence of S-expressions to a ByteString prettySexps :: [Sexp] -> ByteString-prettySexps = encodeUtf8 . displayT . renderPretty 0.5 75 . vcat . punctuate (line <> line) . map ppSexp+prettySexps = encodeUtf8 . displayT . renderPretty 0.75 79 . vcat . punctuate (line <> line) . map ppSexp