github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 10:15:55 +03:00
Code Issues Projects Releases Wiki Activity

Label the empty list like before.

Browse Source
This commit is contained in:
Rob Rix 2017-11-22 16:58:47 -05:00
parent 5a49d44516
commit f970aeddc7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Data/Syntax/Algebra.hs
View File

@ -137,7 +137,8 @@ instance Apply ConstructorName fs => CustomConstructorName (Union fs) where
customConstructorName = apply (Proxy :: Proxy ConstructorName) constructorName
instance CustomConstructorName [] where
customConstructorName _ = ""
customConstructorName [] = "[]"
customConstructorName _ = ""
data Strategy = Default | Custom