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

Fewer parens.

Browse Source
This commit is contained in:
Rob Rix 2015-12-23 23:22:29 -05:00
parent 03526754e9
commit 83173a7b96
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Source.hs
View File

@ -13,7 +13,7 @@ unSource :: Source a -> [a]
unSource (Source vector) = Vector.toList vector
subsource :: Range -> Source a -> Source a
subsource range (Source vector) = Source (Vector.slice (start range) (end range - start range) vector)
subsource range (Source vector) = Source $ Vector.slice (start range) (end range - start range) vector
toString :: Source Char -> String
toString = unSource