fix ShadowedName before and after
commite5a90dbad2080a5c3ebda898a8cc2510440d553e
authorIrakli Safareli <i.safareli@gmail.com>
dateThu 14 Dec 2017, 13:30 (9 years ago)
parentf646f83
src/Data/Tree/Zipper.purs+4−4
@@ -122,11 +122,11 @@ siblingAt i l@(Loc r) =
122122 case (children p) !! i of
123123 Nothing -> Nothing
124124 Just c ->
125− let before = reverse $ take i (children p)
126− after = drop (i+1) (children p)
125+ let before' = reverse $ take i (children p)
126+ after' = drop (i+1) (children p)
127127 in Just $ Loc { node: c
128− , before: before
129− , after: after
128+ , before: before'
129+ , after: after'
130130 , parents: r.parents
131131 }
132132