github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

Compute a substring from a range.

Browse Source
This commit is contained in:
Rob Rix 2015-11-25 12:53:56 -05:00
parent 40a0bc0b91
commit 8bc51c2f86
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
app/Main.hs
View File

@ -117,3 +117,6 @@ parseModuleFile file = do
files (a : as) = (a, file as) where
file (a : as) = a
files [] = error "expected two files to diff"
substring :: Range -> String -> String
substring range = take (end range) . drop (start range)