github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 13:02:37 +03:00
Code Issues Projects Releases Wiki Activity

Not using this

Browse Source
This commit is contained in:
joshvera 2016-06-15 15:57:55 -07:00
parent 212c0cc1a8
commit 8e32dea21c
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/DiffSummary.hs
View File

@ -42,7 +42,7 @@ toTermName term = case unwrap term of
-- TODO: We should remove Case from Syntax since I don't think we should ever
-- evaluate Case as a single toTermName Text - joshvera
Syntax.Case expr _ -> toTermName expr
Syntax.Switch expr cases -> toTermName expr
Syntax.Switch expr _ -> toTermName expr
class HasCategory a where
toCategoryName :: a -> Text