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

Stub in unifiedTerm.

Browse Source
This commit is contained in:
Rob Rix 2015-11-19 16:27:31 -08:00
parent ec0c6fb584
commit d916df923c
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Unified.hs
View File

@ -22,6 +22,9 @@ unified diff before after =
unifiedPatch :: Patch (Term a annotation) -> String
unifiedPatch _ = ""
unifiedTerm :: Term a annotation -> String -> String
unifiedTerm _ _ = ""
unifiedRange :: Range -> [(String, Maybe Range)] -> String -> String
unifiedRange range children source = out ++ substring Range { start = previous, end = end range } after where
(out, previous) = Prelude.foldl accumulateContext ("", start range) children