rowtype-yoga/purescript-yoga-tree
1
0
Fork 0
mirror of https://github.com/rowtype-yoga/purescript-yoga-tree.git synced 2024-10-26 16:53:03 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #3 from safareli/patch-1

Browse Source 
fix ShadowedName before and after
This commit is contained in:
Daniel Fortes 2017-12-14 10:46:56 -02:00 committed by GitHub
commit 9cf8157b70
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Data/Tree/Zipper.purs
View File

@ -122,11 +122,11 @@ siblingAt i l@(Loc r) =
case (children p) !! i of
Nothing -> Nothing
Just c ->
let before = reverse $ take i (children p)
after = drop (i+1) (children p)
let before' = reverse $ take i (children p)
after' = drop (i+1) (children p)
in Just $ Loc { node: c
, before: before
, after: after
, before: before'
, after: after'
, parents: r.parents
}