twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-26 09:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Fixed a small bug

Browse Source
This commit is contained in:
Tom Smeets
2016-08-10 10:30:39 +02:00
parent c2e0fc517c
commit 25df357a4a
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Util/TreeZipper.hs
View File

@@ -97,7 +97,7 @@ rootNode z = maybe z rootNode $ parent z
parent :: TreeZipper a -> Maybe (TreeZipper a)
parent t = case tz_parents t of
(xs,a,ys) : ps -> Just
TreeZipper { tz_current = Node a (tz_before t ++ tz_current t : tz_after t)
TreeZipper { tz_current = Node a (reverse (tz_before t) ++ tz_current t : tz_after t)
, tz_before = xs
, tz_after = ys
, tz_parents = ps