Преглед изворни кода

fix(Sidebar): put tab at the end when moving it between groups

Jocelyn Boullier пре 4 година
родитељ
комит
c46163e4df
1 измењених фајлова са 1 додато и 0 уклоњено
  1. 1 0
      src/Sidebar/Components/Bar.purs

+ 1 - 0
src/Sidebar/Components/Bar.purs

@@ -524,6 +524,7 @@ lastWinTabIndexInGroup gid =
     >>> A.filter (T.snd >>> T.snd >>> (==) gid)
     >>> map T.fst
     >>> A.last
+    >>> map ((+) 1)
 
 findNextGroupId :: S.Set GroupId -> GroupId
 findNextGroupId values =