@@ -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