github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-21 05:41:54 +03:00
Code Issues Projects Releases Wiki Activity

Rename some variables.

Browse Source
This commit is contained in:
Rob Rix 2019-10-16 22:27:26 -04:00
parent 8c0c6ebcd4
commit 2d3f74f2b5
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Rendering/TOC.hs
View File

@ -107,7 +107,7 @@ dedupe = map (entry &&& decl) . sortOn index . Map.elems . foldl' go Map.empty .
-- | Construct a description of an 'Change'.
formatChange :: Change -> Text
formatChange entry = case entry of
formatChange change = case change of
Changed -> "modified"
Deleted -> "removed"
Inserted -> "added"
@ -115,9 +115,9 @@ formatChange entry = case entry of
-- | Construct a 'TOCSummary' from a node annotation and a change type label.
recordSummary :: Change -> Declaration -> TOCSummary
recordSummary entry decl@(Declaration kind text _ srcSpan language)
recordSummary change decl@(Declaration kind text _ srcSpan language)
| ErrorDeclaration <- kind = ErrorSummary text srcSpan language
| otherwise = TOCSummary (formatKind kind) (formatIdentifier decl) srcSpan (formatChange entry)
| otherwise = TOCSummary (formatKind kind) (formatIdentifier decl) srcSpan (formatChange change)
formatIdentifier :: Declaration -> Text
formatIdentifier (Declaration kind identifier _ _ lang) = case kind of