Define a point fiunction for Range.

semantic-source/src/Source/Range.hs

@@ -1,6 +1,7 @@
 {-# LANGUAGE DeriveGeneric, RankNTypes #-}
 module Source.Range
 ( Range(..)
+, point
 , rangeLength
 , subtractRange
   -- * Lenses
@@ -32,6 +33,9 @@ instance Lower Range where
   lowerBound = Range 0 0
 
 
+point :: Int -> Range
+point i = Range i i
+
 -- | Return the length of the range.
 rangeLength :: Range -> Int
 rangeLength range = end range - start range