1
1
mirror of https://github.com/github/semantic.git synced 2024-12-25 16:02:43 +03:00

Flip unifiedTerm.

This commit is contained in:
Rob Rix 2015-11-19 17:36:51 -08:00
parent 75325e7ef0
commit cbd1c962ca

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