github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

Use a list literal.

Browse Source
This commit is contained in:
Rob Rix 2019-10-03 13:50:47 -04:00
parent 70c309aaec
commit 7dabb9a972
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
src/Serializing/SExpression/Precise.hs
View File

@ -68,7 +68,7 @@ instance GToSExpression f => GToSExpression (M1 S s f) where
gtoSExpression = gtoSExpression . unM1 -- FIXME: show the selector name, if any
instance Show k => GToSExpression (K1 R k) where
gtoSExpression k _ = pure (stringUtf8 (show (unK1 k)))
gtoSExpression k _ = [stringUtf8 (show (unK1 k))]
instance GToSExpression Par1 where
gtoSExpression _ _ = []