github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-06 23:46:21 +03:00
Code Issues Projects Releases Wiki Activity

Clean up commented out code

Browse Source
This commit is contained in:
Timothy Clem 2016-09-19 15:33:35 -07:00
parent 7c390d9081
commit b215b30130
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/DiffSummary.hs
View File

@ -101,7 +101,6 @@ prefixWithPatch patch = prefixWithThe (patchToPrefix patch)
(Delete _) -> "Deleted"
connector = \case
(Replace (LeafInfo "number" _) _) -> ""
-- (Delete (BranchInfo _ c _)) -> toDoc c
_ -> "the"
toLeafInfos :: DiffInfo -> [Doc]
@ -118,9 +117,6 @@ toTermName source term = case unwrap term of
S.Indexed children -> fromMaybe "branch" $ (toCategoryName . category) . extract <$> head children
Leaf leaf -> toCategoryName leaf
S.Assignment identifier _ -> toTermName' identifier
-- S.Assignment identifier value -> case (unwrap identifier, unwrap value) of
-- (S.MemberAccess{}, S.AnonymousFunction{..}) -> toTermName' identifier
-- (_, _) -> toTermName' identifier <> toTermName' value
S.Function identifier _ _ -> toTermName' identifier
S.FunctionCall i args -> toTermName' i <> "(" <> (intercalate ", " (toArgName <$> args)) <> ")"
S.MemberAccess base property -> case (unwrap base, unwrap property) of