diff --git a/semantic-source/src/Source/Range.hs b/semantic-source/src/Source/Range.hs
index 28684a5c9..8051ef805 100644
--- a/semantic-source/src/Source/Range.hs
+++ b/semantic-source/src/Source/Range.hs
@@ -33,6 +33,7 @@ instance Lower Range where
   lowerBound = Range 0 0
 
 
+-- | Construct a 'Range' with a given value for both its start and end indices.
 point :: Int -> Range
 point i = Range i i