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

Substrings.

Browse Source
This commit is contained in:
Rob Rix 2015-11-19 15:05:33 -08:00
parent 222aba8e46
commit 4103cfb1e2
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

@ -16,3 +16,6 @@ unified diff before after =
f (Annotated annotations (Keyed k)) = "" f (Annotated annotations (Keyed k)) = ""
unifiedPatch :: Patch (Term a annotation) -> String unifiedPatch :: Patch (Term a annotation) -> String
unifiedPatch _ = "" unifiedPatch _ = ""
substring :: Range -> String -> String
substring range = take (end range) . drop (start range)