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

Add a rangeAt function to construct a Range at an index.

Browse Source
This commit is contained in:
Rob Rix 2016-02-29 10:00:02 -05:00
parent 5bbca4cf8d
commit 9108b56e4f
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Range.hs
View File

@ -11,6 +11,10 @@ import Data.Option
data Range = Range { start :: !Int, end :: !Int } data Range = Range { start :: !Int, end :: !Int }
deriving (Eq, Show) deriving (Eq, Show)
-- | Make a range at a given index.
rangeAt :: Int -> Range
rangeAt a = Range a a
-- | Return the length of the range. -- | Return the length of the range.
rangeLength :: Range -> Int rangeLength :: Range -> Int
rangeLength range = end range - start range rangeLength range = end range - start range