Commit ad2c24f5 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Wibble to printing tuple sections

parent 9091712c
...@@ -392,7 +392,7 @@ ppr_expr (ExplicitTuple exprs boxity) ...@@ -392,7 +392,7 @@ ppr_expr (ExplicitTuple exprs boxity)
where where
ppr_tup_args [] = [] ppr_tup_args [] = []
ppr_tup_args (Present e : es) = (ppr_lexpr e <> punc es) : ppr_tup_args es ppr_tup_args (Present e : es) = (ppr_lexpr e <> punc es) : ppr_tup_args es
ppr_tup_args (Missing _ : es) = comma : ppr_tup_args es ppr_tup_args (Missing _ : es) = punc es : ppr_tup_args es
punc (Present {} : _) = comma <> space punc (Present {} : _) = comma <> space
punc (Missing {} : _) = comma punc (Missing {} : _) = comma
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment