github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 23:42:31 +03:00
Code Issues Projects Releases Wiki Activity

Add spaces inside records’ braces.

Browse Source
This commit is contained in:
Rob Rix 2019-07-23 09:54:08 -04:00
parent 77acb91a7f
commit f1c4d8a1c5
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
semantic-core/src/Data/Core/Pretty.hs
View File

@ -90,7 +90,7 @@ prettyCore style = run . runReader @Prec 0 . go
Record fs -> do
fs' <- for fs $ \ (x, v) -> (name x <+> symbol "=" <+>) <$> go v
pure $ primitive "record" <+> encloseSep lbrace rbrace semi fs'
pure $ primitive "record" <+> encloseSep "{ " " }" semi fs'
Unit -> pure $ primitive "unit"
Bool b -> pure $ primitive (if b then "true" else "false")