github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-04 05:27:08 +03:00
Code Issues Projects Releases Wiki Activity

Append newlines after Show output.

Browse Source
This commit is contained in:
Rob Rix 2018-05-23 09:27:39 -04:00
parent 9e7324b3c7
commit f9266e01e4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Serializing/Format.hs
View File

@ -26,5 +26,5 @@ runSerialize :: Bool -> Format input -> input -> Builder
runSerialize _ (DOT style) = serializeDOT style
runSerialize _ JSON = (<> "\n") . fromEncoding . toEncoding
runSerialize _ (SExpression opts) = serializeSExpression opts
runSerialize True Show = stringUtf8 . hscolour TTY defaultColourPrefs False False "" False . ppShow
runSerialize False Show = stringUtf8 . show
runSerialize True Show = (<> "\n") . stringUtf8 . hscolour TTY defaultColourPrefs False False "" False . ppShow
runSerialize False Show = (<> "\n") . stringUtf8 . show