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

Flip unifiedTerm.

Browse Source
This commit is contained in:
Rob Rix 2015-11-19 17:36:51 -08:00
parent 75325e7ef0
commit cbd1c962ca
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Unified.hs
View File

@ -23,8 +23,8 @@ unified diff before after =
unifiedPatch :: Patch (Term a Info) -> String
unifiedPatch _ = ""
unifiedTerm :: Term a Info -> String -> String
unifiedTerm term source = fst $ cata f term
unifiedTerm :: String -> Term a Info -> String
unifiedTerm source term = fst $ cata f term
unifiedRange :: Range -> [(String, Maybe Range)] -> String -> String
unifiedRange range children source = out ++ substring Range { start = previous, end = end range } after where