Extend range of Labeled (#19)

i-am-the-slime · web-flow · commit f44b4e27d661 · 2021-07-03T13:25:23.000-07:00
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

Original file line number	Diff line number	Diff line change
`@@ -114,7 +114,7 @@ instance tokensOfSeparated :: TokensOf a => TokensOf (Separated a) where`
`114`	`114`	`instance rangeOfLabeled :: (RangeOf a, RangeOf b) => RangeOf (Labeled a b) where`
`115`	`115`	`rangeOf (Labeled { label, value }) =`
`116`	`116`	`{ start: (rangeOf label).start`
`117`		`- , end: (rangeOf label).end`
	`117`	`+ , end: (rangeOf value).end`
`118`	`118`	`}`
`119`	`119`
`120`	`120`	`instance tokensOfLabeled :: (TokensOf a, TokensOf b) => TokensOf (Labeled a b) where`