Extend range of Labeled (#19)

natefaubion · Jul 3, 2021 · f44b4e2 · f44b4e2
1 parent 0fa3a7a
commit f44b4e2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/PureScript/CST/Range.purs b/src/PureScript/CST/Range.purs
@@ -114,7 +114,7 @@ instance tokensOfSeparated :: TokensOf a => TokensOf (Separated a) where
 instance rangeOfLabeled :: (RangeOf a, RangeOf b) => RangeOf (Labeled a b) where
   rangeOf (Labeled { label, value }) =
     { start: (rangeOf label).start
-    , end: (rangeOf label).end
+    , end: (rangeOf value).end
     }
 
 instance tokensOfLabeled :: (TokensOf a, TokensOf b) => TokensOf (Labeled a b) where