소스 검색

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 =