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

Remove termToSummary

Browse Source
This commit is contained in:
joshvera 2016-05-16 14:27:44 -04:00
parent b16166d78a
commit 727b1538c3
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/DiffSummary.hs
View File

@ -41,14 +41,6 @@ diffSummary = cata diffSummary' where
prependSummary :: a -> DiffSummary a -> DiffSummary a
prependSummary annotation summary = summary { parentAnnotations = annotation : parentAnnotations summary }
termToSummary :: Term leaf Info -> DiffSummary a
termToSummary = Foldable.cata summary where
summary :: TermF leaf Info f -> DiffSummary a
summary (info :< Leaf replace) = undefined
summary (info :< Indexed children) = undefined
summary (info :< Fixed children) = undefined
summary (info :< Keyed _) = undefined
maybeFirstCategory :: (Categorizable a) => a -> Maybe Category
maybeFirstCategory term = listToMaybe . toList $ Category.categories term