Output space using ‘space’ in ‘sepSemi’

This commit is contained in:
Mark Karpov 2020-05-27 15:51:27 +02:00
parent 2ed76cc147
commit c84eaa9f7a
No known key found for this signature in database
GPG Key ID: 8564658B2889FF7C

View File

@ -174,10 +174,12 @@ sepSemi f xs = vlayout singleLine multiLine
xs' ->
if ub
then do
txt "{ "
sep (txt "; ") (dontUseBraces . f) xs'
txt " }"
else sep (txt "; ") f xs'
txt "{"
space
sep (txt ";" >> space) (dontUseBraces . f) xs'
space
txt "}"
else sep (txt ";" >> space) f xs'
multiLine =
sep newline (dontUseBraces . f) xs